var
ObjectList: TList; 存放不同类型的对象procedure freeobjectlist;
begin
for i := 0 to ObjectList.Count - 1 do
begin
TObject(ObjectList[i]).Free;
end;
end;
能释放所有对象吗?
ObjectList: TList; 存放不同类型的对象procedure freeobjectlist;
begin
for i := 0 to ObjectList.Count - 1 do
begin
TObject(ObjectList[i]).Free;
end;
end;
能释放所有对象吗?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货