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 为数字补充前缀0

Delphi 计算运行耗时的方法1

Delphi 调用cmd获取java 版本号

Delphi memo 循环往上往下滚动

Delphi high 返回数组下标的最大值

Delphi xe6 �c使用android的zlib

Delphi启动/停止windows服务,启动类型修改为"自动"

Delphi 中主设置静音的方式

winapi 字符及字符串函数(2): charlowerbuff - 把缓冲区中指定数目的字符转小写

Delphi ifdef 另类用法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi指针的定义和取值