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

来源：百度知道编辑：UC知道时间：2024/05/29 12:01:51

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次点的时候这个控件已经不存在了啊，你点当然会报错 ", 那么有什么解决办法？

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

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

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

关于delphi动态创建窗体用delphi动态创建数据库 delphi动态创建窗体的事件（高分紧急） delphi的Tmyedit组件关于Delphi中动态数组的问题关于DELPHI动态数据库关于delphi下拉框组件关于在delphi中动态数组之间的复制？ Delphi中组件之间的赋值 Delphi组件ToolButton在哪里找到的？