Как подружить открытый и динамический массив?

Имеем:

Type
 TMyClass = class
  private
   FStrings: array of String;
  public
   constructor Create(AStrings: array of String);
 end;
...
constructor TMyClass.Create(AStrings: array of String);
begin
 FStrings := AStrings;
end;

получаем [dcc32 Error] Unit1.pas(102): E2010 Incompatible types: 'Dynamic array' and 'array of string'
Я конечно могу написать так:

constructor TMyClass.Create(AStrings: array of String);
var i: Integer;
begin
 SetLength(FStrings, Length(AStrings));
 for i := 0 to High(AStrings) do FStrings[i] := AStrings[i];
end;

но мне кажется есть более кашерный вариант :)

Страдалецъ
Я конечно могу написать так

Так и надо написать.

Страдалецъ
мне кажется есть более кашерный вариант :)

Для этого сначала надо определиться хочешь ли ты использовать с конструктором открытый
массив или сойдёт и динамический. Во втором случае надо изменить параметр конструктора.

Posted via ActualForum NNTP Server 1.5

Страдалецъ
но мне кажется есть более кашерный вариант :)

А вы хотите хранить ссылку на массив снаружи или копию массива ?

Нужен открытый, а так бы я просто определил нужный тип и все.
Допустим так и надо делать, но почему же тогда не возникает проблем с типами если делаем так:

Type
 TMyClass = class
  private
   FStrings: array of String;
  public
   constructor Create(AStrings: array of String);
 end;

constructor TMyClass.Create(AStrings: array of String);
var i: Integer;
begin
 for i := 0 to High(AStrings) do FStrings[i] := AStrings[i];
end;

var
  MyClass: TMyClass;
  AStrings: array of String;
begin
 MyClass := TMyClass.Create(['']);
 MyClass := TMyClass.Create(AStrings);
end.

Тут у нас спокойно принимается и открытый и динамический массив. Проблем совместимости нет. Почему?

Страдалецъ
Почему?

Динамический массив совместим с открытым (может быть к нему приведён). Открытый массив
несовместим с динамическим.

Posted via ActualForum NNTP Server 1.5

О как. Гайку на шпильку накрутить можно, а вот шпильку на гайку фигушки. Все как в жизни :)

Ну да, "фарш невозможно провернуть назад".

Posted via ActualForum NNTP Server 1.5

Страдалецъ
Проблем совместимости нет. Почему?

Compiler magic.

В чём разница между открытым и динамическим в данном примере, и почему "это важно"? В чём разница, если просто "определить тип, и всё"?