Delphi指针的定义和取值
作者:互联网
要点:
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.
标签:定义,Delphi,MyPointInt2,MyPointInt1,MyInt,Integer,取值,指针 来源: https://www.cnblogs.com/jijm123/p/14152339.html