Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.06;
Скачать: 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 вся ветка

Текущий архив: 2003.03.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.047 c
7-17411
ychnik
2003-01-05 16:16
2003.03.06
Работа с буфером


1-17187
Ross
2003-02-21 19:21
2003.03.06
LookupListBox


14-17320
Saracin
2003-02-16 12:05
2003.03.06
Где можно найти описание InstallShield Express статьи, книги,...


14-17259
Wonder
2003-02-14 12:32
2003.03.06
Я плакаль :)))


1-17142
Сергей
2003-02-23 10:10
2003.03.06
INI ФАЙЛЫ И ПРИВЕДЕНИЕ ТИПОВ