Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
Вниз
Вопрос о создании 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;
Скачать: [xml.tar.bz2];
Память: 0.56 MB
Время: 0.047 c
