Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];

Вниз

Тип TStringList   Найти похожие ветки 

 
Berg   (2002-12-18 17:30) [0]

Можно ли в Form.Create создать переменную типа StringList - X.Create, а в Form.Close ее уничтожить - X.Free, если нет, то подскажите как лучше, если создать надо в самом начале программы, а пригодится она может неизвестно когда, что же ее каждый раз создавать и уничтожать.


 
Song   (2002-12-18 17:34) [1]

Создать в onCreate
Разрушить в onDestroy


 
Skier   (2002-12-18 17:34) [2]

>Berg
Можно...

TYourForm = class(TForm)
private
FStringList : TStringList;
end;

//............

procedure TYourForm.FormCreate(Sender: TObject);
begin
FStringList := TStringList.Create;
end;

procedure TYourForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FreeAndNil(FStringList);
end;


 
han_malign   (2002-12-18 17:36) [3]

TForm1=class(TForm)
..............
protected// или private, или public - главное не published
X: TStringList;
end;

в OnCreate - создаешь, в OnDestroy - убиваешь.


 
FreeLancer   (2002-12-18 17:36) [4]

Тоже вариант:

initialization
begin

x := TStringList.Create;
...
end;
finalization
begin

x.Free;
...
end;


 
Song   (2002-12-18 17:37) [5]

2Skier © (18.12.02 17:34)
А зачем нилить, если всё равно из прораммы выходим? ;-)


 
Skier   (2002-12-18 17:40) [6]

>Song
1) Много зависит от того что в Action
2) Автор ведь просил именно в OnClose


 
Berg   (2002-12-18 17:45) [7]

Спасибо всем!!!


 
han_malign   (2002-12-18 17:47) [8]

> А зачем нилить, если всё равно из прораммы выходим? ;-)
- чтобы заиметь далеко не вредную привычку и всегда делать на автомате.



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

Форум: "Основная";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.034 c
4-99401
Dok_3D
2002-11-14 13:26
2002.12.30
Как программно залогиниться в Win2000.


4-99420
Dimon14
2002-11-15 02:51
2002.12.30
Как отследить изменение битовой матрицы, например какя то часть д


14-99359
mike123
2002-11-29 17:46
2002.12.30
как апустить приложение kylix


3-99004
Picco
2002-12-10 16:01
2002.12.30
Unknow token received from SQLSERVER


1-99149
Niko
2002-12-18 16:28
2002.12.30
Как привязать Label к Shape?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский