freepascal.ru

Есть кусок кода:

Код: Выделить всё

// Загрузка пиклиста
procedure TXForm.LoadXList(from_table:string; to_col:integer; var _arr: array of integer);
var i:integer;
begin
...
  SetLength(_arr,0);
...
  SetLength(_arr,Length(_arr)+1); // удлиняем массив на 1
...
end;   

Вопрос: почему SetLength вызывает ошибку Error: Type mismatch? Так и должно быть?

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

Код: Выделить всё

type
  TIntArray = array of integer;

procedure Proc(var arr : TIntArray);
.....

Большое спасибо.