| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Тип TStringList [D6, Win95/98]

Berg ©   (2002-12-18 17:30:00) 

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

---

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

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

---

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

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

---

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

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

---

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

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

---

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

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

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

---

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

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

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


---

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

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

---

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

>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;

---

Наверх