Скачать: CL | DM;

Вопрос о создании 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]

2MBo © (23.02.03 12:17)
С праздником!
Спасибо, упустил, что можно сразу с Lines работать. :)

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.016 c