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

被折叠的 条评论
为什么被折叠?



