Code: Select all
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.
Просто запуск NewFunc(); без сохранения данных ответа функции работает нормально.