要点:

1.指针的2中定义方法 PInteger 和 ^Integer

2.取地址符号 @ 和 Addr函数

3.取内容符号 ^ ,比如MyPointInt1^则是取MyPointInt1指针所指向的内容了。

 

program MyPoint;  //指针详解

{$APPTYPE CONSOLE}

uses

  SysUtils,windows,Generics.Collections ;

{指针的定义和取值}

procedure MyFunc1();

var

  MyInt : Integer;//整数

  MyPointInt1 : PInteger;//指针定义1

  MyPointInt2 : ^Integer;//指针定义2

begin

  MyInt := 100;

  MyPointInt1 := @MyInt; //取地址方法1

  Writeln('MyInt: ',MyInt,',MyPointInt1：',InttoHex(Integer(MyPointInt1),8),',MyPointInt1^为: ',MyPointInt1^);

  MyPointInt1^ := 200;   //赋值

  MyPointInt2 := Addr(MyInt);//取地址方法2

  Writeln('MyInt: ',MyInt,',MyPointInt2：',InttoHex(Integer(MyPointInt1),8),',MyPointInt1^为: ',MyPointInt1^,',MyPointInt2^为: ',MyPointInt2^);

end;

{main主函数}

begin

 MyFunc1();

 Readln;//回车退出

end.