本文整理自网络,侵删。
要点: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.
相关阅读 >>
indy tidtcpclient 的一个用法上要留意的问题,以及 http
Delphi datetime,date,time tdatetimepicker
更多相关阅读请进入《Delphi》频道 >>