var s : String ; p : Pointer ; s := '1234' ; P := @s ; ShowMessage(String(p^)) ;
同意质子: var s : String ; p : int ; s := '1234' ; P := (int)@s ; ShowMessage(String(((Pointer)p)^)) ;-------------------------------------- 看见了么, 那支蛾子, 正飞向太阳, 那就是我! --------------------------------------
var S: string; Add: Integer; begin S := '1234'; Add := Integer(@S); <----Add是地址(整型的,是数字) Caption := PString(Ptr(Add))^ <----得到的地址(是数字,就是地址值),取得起内容(字符串的内容) end;
s : String ;
p : Pointer ; s := '1234' ;
P := @s ;
ShowMessage(String(p^)) ;
var
s : String ;
p : int ; s := '1234' ;
P := (int)@s ;
ShowMessage(String(((Pointer)p)^)) ;--------------------------------------
看见了么,
那支蛾子,
正飞向太阳,
那就是我!
--------------------------------------
S: string;
Add: Integer;
begin
S := '1234';
Add := Integer(@S); <----Add是地址(整型的,是数字)
Caption := PString(Ptr(Add))^ <----得到的地址(是数字,就是地址值),取得起内容(字符串的内容)
end;