Вопрос о создании TStrings

← →
IVANOV (2003-02-22 08:15) [0]

Привет, мастера!
Есть функция, возвращаемый рез-т типа TStrings. Где создавать TStringList для результата? Я делал это в самой ф-и, но тогда нельзя сделать ему Free. Дайте пожалуйста пример обращения к такой ф-и.
Спасибо.

← →
Романов Р.В. (2003-02-22 08:26) [1]

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1045775858&n=3

← →
IVANOV (2003-02-23 08:29) [2]

To Романов Р.В.: я наверное туп, но не нашел там ответа на свой вопрос. Вообще хотелось бы понять как сделать ф-ю что-бы ее можно было вызывать так:
Memo1.Lines:= Моя_Функция;

← →
Song (2003-02-23 09:53) [3]

Так нельзя, потому что ты не осовободишь созданный объект.
Делается так:

Procedure MyProc(S: TStrings);
Begin
...
End;

Str:=TStringList.Create;
try
MyProc(Str);
Memo1.Lines.Assign(Str);
finally
Str.Free;
end;

← →
MBo (2003-02-23 12:17) [4]

>Song
зачем лишний список?

Procedure MyProc(S: TStrings);
Begin
S.Clear;//если надо очищать
...
End;

MyProc(Memo1.Lines);

← →
Song (2003-02-23 12:22) [5]

← →
oomneeq (2003-02-23 13:05) [6]

Если результат вызова такой функции присваивать переменной, то можно делать фри этой переменной, после использования.

Вопрос о создании TStrings Найти похожие ветки