delphi 中由TObjectList对象Destroy引起内存释放的问题

在Delphi XE7环境下,一个程序在使用TObjectList对象后遇到内存释放错误,导致程序崩溃。问题出现在反复打开同一界面时。解决方案包括移除条件检查、在Destroy后设置为nil或将其作为成员变量。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

    delphi 环境 delphi XE7

    今天在完善一个程序的时候,发现一个问题,有个功能重复打开就会触发内存释放错误。导致程序挂掉。以前是正常的,就是加了一个TObjectList变量。

    我的功能是这样的点击一个菜单就弹出一个界面,如果反复的点击该菜单就会造成上面所述的错误。

以下是出错时的代码:

  Tposrecord=class
  private
    v_id:string;
    v_name:string;
  public
    constructor Create(id:string;name:string);
    destructor Destroy; override;
  end;

var
  NodesModify: TNodesModify;
  v_objlist:TObjectList;

implementation

{$R *.dfm}

constructor Tposrecord.Create(id: string; name: string);
begin
  Self.v_id:=id;
  Self.v_name:=name;
end;

destructor Tposrecord.Destroy;
begin
  inherited Destroy;
end;

class function TNodesModify.MNodeInfo(v_info :PTNodeInfo): Boolean;
var
  v_nodemodify:TNodesModify;
  v_i:Integer;
begin
  v_nodemodify:= TNodesModify.Create(nil);

  try

    try
       Result := (v_nodemodify.ShowModal = mrOK);
    except
      on e:Exception do
      ShowMessage(e.Message);

    end;
    v_objlist.Destroy;
    if not Result then
    begin
      Exit;
    end;
    Result:=True;
  finally
    v_nodemodify.Free;
  end;

end;

procedure TNodesModify.FormShow(Sender: TObject);
var
  v_n:Tposrecord;
  v_i:Integer;
begin
    if v_objlist=nil then
    v_objlist:=TObjectList.Create;
    for v_i:=0 to 10 do
    begin
      v_n:=Tposrecord.Create(inttostr(v_i),
                             inttostr(v_i+1));
      cbb3.AddItem(inttostr(v_i),TObject(v_n));
      v_objlist.Add(v_n);
    end;
    cbb3.ItemIndex:=0;
end;

该界面第一次打开的时候 v_objlist=nil 成立,如果再次打开就不成了。

所以有3种修改方法。

1、要么将 if v_objlist=nil then 去掉。

2、要么在v_objlist.Destroy; 这句后面再加一个 v_objlist=nil; 

3、将v_objlist定义成TNodesModify的一个成员变量。



评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值