Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.30;
Скачать: CL | DM;

Вниз

Тип 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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.017 c
6-99225
Cowboy
2002-11-01 10:19
2002.12.30
Delphi 7 и сохранение инет страниц


14-99360
Ежик
2002-12-11 10:57
2002.12.30
Виртуальный клуб программистов Эстонии


8-99203
K.o.Z
2002-08-17 02:12
2002.12.30
вопрос по Bitmaps in OpenGL


8-99211
Дмитрий Сазонов
2002-09-11 17:18
2002.12.30
Система компьютерного видеонаблюдения на Delphi


1-99148
oleg_apmath
2002-12-18 13:35
2002.12.30
XML & Delphi