在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
效果图如下:
要点: 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.
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论