Лазарус и строковой массив

[Utkin]

Никак не могу найти ошибку, вроде где-то на поверхности плавает, но чего-то седня переутомился:

procedure TNStore.CopyStrMas(Source: Array of String; var Dest: Array of String; Count: Integer);
var
   i, d: Integer;
begin

     // Количество элементов в массиве
     d:=Length(Source);
     if Count>-1 then d:=Count;

     // Выставим нужное количество элементов
     SetLength(Dest, d);

     // Перенос элементов
     for i:=0 to d-1 do
     begin

          // Построчно
          Dest[i]:=Source[i];
     end;
end;

Лазарус ругается на SetLength(Dest, d); - типа

treestorage.pas(195,24) Error: Type mismatch

[Аватар]

type TMyArray = array of String;

...

procedure CopyStrMas(Source: TMyArray; var Dest: TMyArray; Count: Integer);

[Stilet]

Array of String

Не лучше ли TStringList вместо открытого массива?

[Utkin]

type TMyArray = array of String;

Так работает, но почему это нужно? У меня в юните полно обработок массивов и есть строковые с похожим принципом действия - вычисляем длину массива, заполняем массив. Другие участки кода Лазарус проглатывает молча.

Не лучше ли TStringList вместо открытого массива?

Мелкая обработка временных данных. Нет особого смысла разводить сыр-бор. И потом я хочу юникод, а у Лазаруса там со списками какие-то траблы. Вроде все работает, малейшее изменение и потом ищи где что не так (там часть операций по умолчанию поддерживает юникод, а часть надо явно преобразовывать кодировки).

[Аватар]

При объявлении как в #1 специальный механизм передачи параметров, не позволяющий внутри процедуры изменять длину массива.

[Utkin]

Ну так я var написал, чтобы можно было. К чему такие сложности?

[Serge_Bliznykov]

procedure TNStore.CopyStrMas(Source: Array of String; var Dest: Array of String; Count: Integer);

в Паскале не было динамических массивов.
Но были так называемые "открытые массивы" (читать про передачу массивов в процедуры/функции - ТЫЦ)

Так это и перешло (на правах совместимости в ObjectPascal/Delphi)

поймите, что описанные у Вас массивы Source и Dest - НЕ динамические. Поэтому к ним и не применима операция SetLength

Теперь стало чуть яснее?

[Utkin]

Теперь стало чуть яснее?

Немного. Как менять длину открытого массива? Только по-Аватарски?

[Аватар]

Как менять длину открытого массива?

Ни как. Динамического SetLength

[Serge_Bliznykov]

да, никак. Только описывайте свой тип, как и предложил Аватар, его передавайте в процедуру/функцию и уже ему меняйте длину через SetLength