作者:admin 来源: 日期:2020/3/8 21:05:51 人气: 标签:

要点:1.指针的2中定义方法 PInteger 和 ^Integer2.取地址符号 @ 和 Addr函数3.取内容符号 ^ ,比如MyPointInt1^则是取MyPointInt1指针所指向的内容了。
program MyPoint; //指针详解{$APPTYPE CONSOLE}uses SysUtils,windows,Generics.Collections ;
{指针的定义和取值}procedure MyFunc1();var MyInt : Integer;//整数 MyPointInt1 : PInteger;//指针定义1 MyPointInt2 : ^Integer;//指针定义2begin 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.