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;
能释放所有对象吗?
应该还有别的.