Question

关于delphi动态创建的组件的释放问题

var lb:TLabel;
procedure TForm1.FormCreate(Sender: TObject);
begin
lb:=TLabel.Create(self) ;
lb.Parent:=self;
lb.Left :=150;
lb.Top :=300;
lb.Font.Color :=clred;
lb.Caption :='注射用具';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
lb.Free ;
end;
第一次点击按钮顺利释放，若第二次再点击就出现异常：...raised exception class EAccessViolation at address 20736E61.Read of adress "20736E61'.

我需要在button的单击事件中在释放掉lb的同时开始执行其它程序语句。请问高手上述问题怎么解决呀？
"第2次点的时候这个控件已经不存在了啊，你点当然会报错 ", 那么有什么解决办法？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
if Assigned(lb) then
begin
lb.Free ;
lb := nil;
end;
end;
Free,应该只是释放对象，然后把它的指针赋值NIL，让它为空

Answer 2

第2次点的时候这个控件已经不存在了啊，你点当然会报错

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
if Assigned(lb) then
begin
lb.Free ;
lb := nil;
end;
end;