Как написать функцию, возвращающую TStringList. По идее компилятор должен создавать как бы глобальную переменную типа TStringList. Но, увы, при вызове происходит ошибка.
Неужели выход только в том, чтобы создавать в вызывающей программе переменную типа TStringList и передавать ее в качестве параметра.
Использовать классы вроде бы тоже неудобно (создавай, потом удаляй - как и переменную-параметр) как быть, неужели функции в Delphi могут возвращать только простые типы. 
| Код |
function MyList:TStringList;
var i:Integer;
begin
for i:=1 to 3 do
result.Append(IntToStr(i));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
// my.Create;
try
Memo1.Lines.Assign(MyList);
finally
// my.Free;
end;
end;
|
|