C
cjtmh
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.btn1Click(Sender: TObject);
type
PObject = ^TObject;
var
PObj
Object;
begin
PObj:=@Self;
ShowMessage(PObj^.ClassName);
end;
就这行代码－PObj:=@Self
PObj是只能指向PObject类型的指针 为什么给他赋个值TForm的值呢，应该不兼容才对，谁跟我讲讲。
type
PObject = ^TObject;
var
PObj
Object;begin
PObj:=@Self;
ShowMessage(PObj^.ClassName);
end;
就这行代码－PObj:=@Self
PObj是只能指向PObject类型的指针 为什么给他赋个值TForm的值呢，应该不兼容才对，谁跟我讲讲。