A
awfigsk
Unregistered / Unconfirmed
GUEST, unregistred user!
在TObject的classtype方法中:
function TObject.ClassType:TClass;
begin
Pointer(Result):=PPointer(Self)^;
end;
是否可以写成Pointer(Result):=Pointer(Self^);
谢谢!
function TObject.ClassType:TClass;
begin
Pointer(Result):=PPointer(Self)^;
end;
是否可以写成Pointer(Result):=Pointer(Self^);
谢谢!