Форум: "Основная";
Текущий архив: 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.45 MB
Время: 0.007 c