Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
1-17029
Маришка
2003-02-25 09:40
2003.03.06
вопросик


3-16966
line
2003-02-17 01:15
2003.03.06
Установка пароля на существующую таблицу Paradox


1-17156
Шишкин Илья
2003-02-23 13:23
2003.03.06
Как изменить курсоры мыши?


3-16891
roadrunner
2003-02-12 16:33
2003.03.06
АДО,Access,CD-ROM


14-17376
Tornado
2003-02-12 16:56
2003.03.06
Opera 7





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский