Правильно ли так проверять, создан ли компонент?

← →
ButtonExplorer (2006-02-15 16:37) [0]

Нет ли подводных камней, всегда ли это будет работать?

procedure TForm1.FormCreate(Sender: TObject); VAR B:TButton; begin B:=nil; B:=TButton.Create(self); B.Caption:="Test"; B.OnClick:=B_Cl; B.Parent:=self; B.Left:=20;B.Top:=20; IF B<> nil then beep; end;

Ещё можно tag присвоить и проверить.

А какие есть ещё способы?

← →
Jeer © (2006-02-15 16:42) [1]

А значит ли, что до
IF B<> nil then beep;
не нужно было проверять на nil ?
Может все же через try ?

Способы чего ?

← →
ButtonExplorer (2006-02-15 16:58) [2]

Это просто пример.

>Способы чего ?

Способы узнать, был ли создан компонент или ещё нет или уже уничтожен, т.е. текущее состояние узнать в произвольный момент в программе, что бы случайно не создать дубликат компонента. Меня просто смущает, что переменная B изначально не равна nil, и непонятно её поведение после уничтожения объекта (B.Free).

← →
McSimm © (2006-02-15 17:04) [3]

> Способы узнать, был ли создан компонент или ещё нет или
> уже уничтожен

вы создаете, вы уничтожаете - все в ваших руках.
Лучше, безусловно, построить логику так, чтобы не возникало ситуации, когда вы сами не знаете что там с объектом.
Но если так сделать нельзя по каким-то причинам -
можно инициализировать при старте и при уничтожении nil.
можно изолировать класс объекта и создавать экземпляр не напрямую, через вызов функции (см. пример Clipboard() в исходниках)

← →
Ega23 © (2006-02-15 17:05) [4]

> Меня просто смущает, что переменная B изначально не равна
> nil, и непонятно её поведение после уничтожения объекта
> (B.Free).
>

Ну и приравнивай её потом к nil

if Assigned(MyObject) then begin MyObject.Free; MyObject:=nil end;

← →
ButtonExplorer (2006-02-15 17:41) [5]

>можно инициализировать при старте и при уничтожении nil
>Ну и приравнивай её потом к nil

Ясно.

> if Assigned(MyObject) then
> begin
> MyObject.Free;

Assigned и Free, в принципе, делают одно и тоже. Только Free при положительном реззультате вызывает Destroy. Поэтому [6] begin...end ©

Правильно ли так проверять, создан ли компонент? Найти похожие ветки