Stealth Client Forum

Posted: **01.02.2013 0:22**

Изображаю код в простом виде:

Program tst;
var tt: array[0..1] of TStringList;

Function NewFunc(): array[0..1] of TStringList;
begin
result[0] := TStringList.Create;
result[1] := TStringList.Create;
end;

begin
  tt := NewFunc();
  tt[0].free;
  tt[1].free;
end.

Ответ компилятора: "Type Mismatch at 0.28"
Просто запуск NewFunc(); без сохранения данных ответа функции работает нормально.

Posted: **01.02.2013 0:43**

Code: Select all

type arr = array[0..1] of TStringList;

var tt: arr;

Function NewFunc: arr;
begin
result[0] := TStringList.Create;
result[1] := TStringList.Create;
end;

begin
  tt := NewFunc;
  tt[0].free;
  tt[1].free;
end.

пс иногда начинает беситься, когда массивы идут возвращаемыми значениями, или обьекты в массиве, или записи - закидывание массива в тип всегда помогает.

Posted: **01.02.2013 12:01**

Спасибо, проясню для потомков примером, вдруг кому-то понадобится (:

Code: Select all

Program tst;
type TArrOfTStringList = array [0..1] of TStringList;
var tt: TArrOfTStringList;

Function NewFunc(): TArrOfTStringList;
begin
result[0] := TStringList.Create;
result[1] := TStringList.Create;
end;

begin
  tt := NewFunc();
  tt[0].free;
  tt[1].free;
end.

Stealth Client Forum

массив TStringList как результат функции

массив TStringList как результат функции

Re: массив TStringList как результат функции

Re: массив TStringList как результат функции