在我的程序中,我这样做:

var aObj: Tobject;
var aObjClassType: Tclass;
....
aObjClassType := aObj.ClassType;
....
aObj.free;
aObj := nil;
....
showmessage(aObjClassType.Classname);


这项工作,但我不太确定这是否正确,尤其是当我阅读函数TObject.ClassType

function TObject.ClassType: TClass;
begin
  Pointer(Result) := PPointer(Self)^;
end;


那么释放aObj不会也释放aObjClassType吗?

最佳答案

TClass是一个类。 TObject是一个实例。因此,obj.ClassType返回实例obj的类,即类型。

请注意,这是实例的运行时类型,而不是obj引用变量的类型。使用多态性时,这是相关的。所以如果你写

var
  shape: TShape;
....
shape := TSquare.Create;


然后,即使shape.ClassType变量为TSquareshape也会返回TShape


那么释放aObj不会也释放aObjClassType吗?


否。类是静态的,在模块加载时创建,而在模块卸载时销毁。

有关更多详细信息,请阅读文档:http://docwiki.embarcadero.com/RADStudio/en/Classes_and_Objects_(Delphi)#TObject_and_TClass

关于delphi - Tclass到底是什么?,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/54315452/

10-11 14:35