摘要：
效果图如下:要点:1.指针的2中定义方法PInteger和^Integer2.取地址符号@和Addr函数3.取内容符号^,比如MyPointInt1^则是取MyPointInt1指针所指向的内容了。
效果图如下:
要点:
1.指针的2中定义方法 PInteger 和 ^Integer
2.取地址符号 @ 和 Addr函数
3.取内容符号 ^ ,比如MyPointInt1^则是取MyPointInt1指针所指向的内容了。
program MyPoint; //指针详解 {$APPTYPE CONSOLE} usesSysUtils,windows,Generics.Collections ; {指针的定义和取值} procedureMyFunc1(); varMyInt : Integer;//整数 MyPointInt1 : PInteger;//指针定义1 MyPointInt2 : ^Integer;//指针定义2 beginMyInt := 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主函数} beginMyFunc1(); Readln;//回车退出 end.