TList能释放所有类型的对象吗？
var
ObjectList: TList; 存放不同类型的对象

procedure freeobjectlist;
begin
for i := 0 to ObjectList.Count - 1 do
begin
TObject(ObjectList[i]).Free;
end;
end;
能释放所有对象吗？




[解决办法]
不知道，可能delphi的架构师们认为没必要让你继续往下看了，因为任何对象的释放都会调用tobject的析构函数，而tobject是所谓的delphi原子，他的析构函数没有代码。