@ 与 ^ 运算符

1. //例1：
2. procedure TForm1.Button1Click(Sender: TObject);
3. var
4.   str: string;
5.   p: Pointer;
6. begin
7.   p := @str;  //变量 str 的地址
8.   p := @Form1;  //变量 Form1 的地址
9.   p := @TForm1.Button1Click;  //过程 TForm1.Button1Click 的地址
10.   p := Addr(str);  //同 p := @str;
11.   ShowMessage(IntToStr(Integer(p)));  //显示
12. end;
13. //例2：
14. procedure TForm1.Button1Click(Sender: TObject);
15. var
16.   i1,i2: Integer;
17.   pi: ^Integer;
18. begin
19.   i1 := 6;
20.   pi := @i1;
21.   if pi<>nil then i2 := pi^;
22.   //if Assigned(pi) then i2 := pi^;  //等价与上一句
23.   ShowMessage(IntToStr(i2));  //返回：6
24. end;