Решено SetLength и procedure <name> (var array: array of <>)

[evb87ar]

Задача:
В процедуру передаётся переменная (скажем in_out_array), объявленная как array of [type].
В процедуре во время работы массив заполняется данными.

Проблема:
Но, при попытке сделать SetLength(in_out_array, <число>) компилятор ругается: Error: Type mismatch.

Текущее решение:
in_out_array объявлена в секции var unit'а.

Вопрос:
Как вывести динамический массив из процедуры или функции, не используя var? Может у кого-нибудь был такой опыт?
Выносить in_out_array в общий var как-то не хочется, ибо тогда в var unit'а будет кучка таких вот переменных.

Предположение:
Может попробовать использовать указатели (ещё не пробовал, вдруг у кого-то есть решение этой проблемы)?

Вот урезанный код:

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

  type t_objSQL_Struct = record
    from_table, from_field: string;
    to_table,   to_field  : string;
  end;

  procedure objSQL_link_getStruct(in_link_string: string; var out_link_struct: array of t_objSQL_Struct);
    begin
      SetLength(out_link_struct, 0);
    end;


[Sergei I. Gorelkin]

Динамический массив нужно объявлять отдельным типом:

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

type
  tarray=array of tobjSQL_Struct;

procedure objSQL_link_getStruct(var out_link_struct: tarray);


иначе аргумент процедуры будет не динамическим, а открытым массивом (open array). Несмотря на одинаковый синтаксис, это разные вещи.

[kipar]

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

procedure objSQL_link_getStruct(in_link_string: string; var out_link_struct: array of t_objSQL_Struct);


При передаче в функцию "array of" означает динамический массив, а статический массив произвольной длины. Чтобы передать динамический массив надо делать так:

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

TSqlArray = array of t_objSQL_Struct;
procedure objSQL_link_getStruct(in_link_string: string; var out_link_struct: TSqlArray);

[evb87ar]

Спасибо за ответы.