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.

相关阅读 >>

format、formatdatetime、formatfloat 的用法

Delphi guid单元

Delphi 如何得到 winrar 处理解压缩文件的返回值 ?

Delphi idhttp读取网页重定向

Delphi goto语句用法

Delphi tcomport控件从串品读取数据

Delphi 的tstringbuilder防止服务器内存碎片化

Delphi中实现密码框“大写锁定打开”的提示

Delphi图片base64编码

Delphi rest服务器返回图像并显示在浏览器中

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...