Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.018 c