Delphi指针长度

本文整理自网络，侵删。

 

要点:
1.指针指向的内容的大小因数据类型的不同而不同，指针本事的大小，都是4字节
2.sizeof函数是取形参所占的内存大小
3.IntToHex是把整数型的值，转换为16进制的值，第二个参数是16进制的长度为多少位


program MyPoint;  //指针详解
{$APPTYPE CONSOLE}
uses
  SysUtils,windows,Generics.Collections ;

{指针长度}
procedure MyFunc3();
var
  MyInt : Integer;//整数
  MyPoint : PInteger; //定义指针
  MyByte : Byte;
  MyPintByte : PByte;
begin
  MyInt := 2;
  MyByte := 3;
{byte型和integer型的指针}
  MyPoint := @MyInt;
  MyPintByte := @MyByte;
{输出2者地址}
  Writeln('MyPoint    ：' + IntToHex(Integer((MyPoint)),8));
  Writeln('MyPintByte ：' + IntToHex(Integer((MyPintByte)),8));
  Inc(MyPoint);
  Inc(MyPintByte);
{调用Inc之后byte和integer地址一个多1，一个多4}
  Writeln('MyPoint    ：' + IntToHex(Integer(MyPoint),8));
  Writeln('MyPintByte ：' + IntToHex(Integer(MyPintByte),8));
{byte和integer指针取自身长度都是4}
  Writeln('SizeOf(MyInt)：'+IntToStr(SizeOf(MyInt))+' SizeOf(MyPoint)：'+IntToStr(SizeOf(MyPoint)));
  Writeln('SizeOf(MyByte)：'+IntToStr(SizeOf(MyByte))+' SizeOf(MyPintByte)：'+IntToStr(SizeOf(MyPintByte)));
end;

{main主函数}
begin
 MyFunc3();
 Readln;//回车退出
end.

 

相关阅读 >>

Delphi firemonkey app 如何获得当前系统语言设置

Delphi xe2 新增 system.zip 单元, 可用一句话压缩整个文件夹了

Delphi thread类的创建及使用(关于线程函数的传递例子)

crc8unt.pas

Delphi idhttp 实战用法(tidhttpex)

Delphi getsys32path()得到系统system32路径

Delphi webbrowser控件属性介绍

如何访问局域网的access数据库

Delphi 官方 processmessages 用法代码例子

重新组织编写Delphi的md2、md4、md5类

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

转载请注明出处：木庄网络博客 » Delphi指针长度