//例1： procedure TForm1.Button1Click(Sender: TObject); varstr: string;p: Pointer; beginp := @str; //變量 str 的地址p := @Form1; //變量 Form1 的地址p := @TForm1.Button1Click; //過程 TForm1.Button1Click 的地址p := Addr(str); //同 p := @str;ShowMessage(IntToStr(Integer(p))); //顯示 end;//例2： procedure TForm1.Button1Click(Sender: TObject); vari1,i2: Integer;pi: ^Integer; begini1 := 6;pi := @i1;if pi<>nil then i2 := pi^;//if Assigned(pi) then i2 := pi^; //等價與上一句ShowMessage(IntToStr(i2)); //返回：6 end;

轉載于:https://www.cnblogs.com/del/archive/2007/11/26/973362.html

總結

以上是生活随笔為你收集整理的@ 与 ^ 运算符的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。