Удаление компонентов

[newerow1989]

Здравствуйте!
Как определить, уничтожен ли компонент или нет после вызова Free? При выполнении нижеуказанных кодов программа пишет 'create' после Free. Ведь по логике должно быть 'delete'. Заранее спасибо!

var Button2:tButton;

procedure TForm1.Button1Click(Sender: TObject);
begin
   If Button2=nil then
      Label1.Caption:='delete' else
      Label1.Caption:='create';
   Button2:=TButton.Create(Application);
   Button2.Parent:=Form1;
   Button2.Free;
   If Button2=nil then
      Label2.Caption:='delete' else
      Label2.Caption:='create';
end;

var Timer2:tTimer;

procedure TForm1.Button1Click(Sender: TObject);
begin
   If Timer2=nil then
      Label1.Caption:='delete' else
      Label1.Caption:='create';
   Timer2:=TTimer.Create(Application);
   Timer2.Free;
   If Timer2=nil then
      Label2.Caption:='delete' else
      Label2.Caption:='create';
end;

[ZuBy]

используй FreeAndNil, а не Free


var Button2:tButton = nil;

[newerow1989]

Спасибо! Проверил, вроде бы работает!

[min@y™]

Вызов деструктора не обнуляет указатель.
Тут важно понять, что переменные объектов/компонентов - это указатели (4 байта/8 байт), содержащие начальный адрес области памяти, где живёт созданный объект. После вызова деструктора этот кусок памяти система забирает себе и получается, что указатель указывает в космос. И самое важное: деструктор объекта не знает и знать не может про твою переменную-указатель (их может быть несколько), соответственно и обнулить он её не может, если только ты не сделал её глобальной и не обнуляешь её прямо внутри конструктора потомка.

Процедура FreeAndNil() сначала обнуляет переданный ей указатель, а потом вызывает деструктор.

procedure FreeAndNil(var Obj);
{$IF not Defined(AUTOREFCOUNT)}
var
  Temp: TObject;
begin
  Temp := TObject(Obj);
  Pointer(Obj) := nil;
  Temp.Free;
end;
{$ELSE}
begin
  TObject(Obj) := nil;
end;
{$ENDIF}

Советую юзать эту процедуру для глобальных переменных-указателей везде, где только возможно.