Тип 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)
А зачем нилить, если всё равно из прораммы выходим? ;-)

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

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

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

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

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