依星源码资源网,依星资源网

 找回密码
 立即注册

QQ登录

只需一步,快速开始

限时开通VIP永久会员,可免费下载所有附件
查看: 107|回复: 0

delphi 中 Record ,packet Record

[复制链接] |主动推送

1686

主题

1721

帖子

2378

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
2378
发表于 2023-9-21 10:18:05 | 显示全部楼层 |阅读模式
delphi 中 Record ,packet Record在windows中内存的分配一次是4个字节的。而packed按数据类型进行内存的申请和分配,读取时也是按照数据型的大小进行指针定位,这样速度要慢一些,因为需要额外的时间来进行指针的定位。因此如果不用packed的话,delphi将按一次4个字节的方式申请内存,因此如果一个变量没有4个字节宽的话也要占4个字节!这样就浪费了,你可以用packed关键字取消这种优化。


例子:
type
myrec = packed record
n1 : integer; 4个字节
n2 : shortint; 1个字节
end;   
sizeof(myrec)------ 5

type
myrec = record
n1 : integer;
n2 : shortint;
end;
sizeof(myrec)------ 8





一个结构体,在 Delphi 里面,定义为一个 Record。
当然,一个 Record 也可以有另外一种,叫做:packed record。

这两种 Record 的区别是其内存分布。Record 里面会对每个字段做操作系统的【对齐】,比如 32 位操作系统,一个整数是 4 个字节,它一次处理 4 个字节会效率比较高,因此 Delphi 在内部会让一个 3 字节的字段,占用 4 个字节的内存。而 Packed Record 则是每个字段该多少就占多少内存。例子如下


  1. TMyParam1 = Record
  2.     A1: Word;
  3.     A2: Byte;
  4. End;

  5. TMyParam2 = packed Record
  6.     A1: Word;
  7.     A2: Byte;
  8. End;

  9. SizeOf(TMyParam1) 和 SizeOf(TMyParam2) 的大小不同。
复制代码
结构体的初始化

定义结构体的时候,在以前的 Delphi 版本里面,没法初始化。如果要初始化,是每个需要结构体变量的地方,自己用代码去做。这样可能需要在很多使用这个结构体的地方写相同的初始化代码。

现在的 Delphi 语法支持初始化代码了,例子:

  1. TSession = packed record
  2.     SrcNumb: Cardinal;
  3.     DestNumb: Cardinal;

  4.     //以下两个方法是 10.4 才有的
  5.     class operator Initialize (out Dest: TSessionHeader);  //初始化方法,不需要有地方调用。分配内存时自动执行。
  6.     class operator Finalize(var Dest: TSessionHeader);
  7.   end;



  8. class operator TSession.Finalize(var Dest: TSessionHeader);
  9. begin

  10. end;

  11. class operator TSession.Initialize(out Dest: TSessionHeader);
  12. begin
  13.   Dest.SrcNumb := 12;
  14.   Dest.DestNumb := 21;
  15. end;

  16. //上述代码是结构体的定义代码。上述代码中的 Initialize 方法自动初始化结构体里面的字段,
  17. //在定义一个结构体变量的时候,不需要调用这个方法。
  18. //定义一个结构体变量,Delphi 在内部自动调用这个初始化方法。
复制代码




您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

 
在线客服
点击这里给我发消息 点击这里给我发消息 点击这里给我发消息
售前咨询热线
312337667

微信扫一扫,私享最新原创实用干货

QQ|手机版|依星源码资源网 ( 鲁ICP备2021043233号-3 )|网站地图

GMT+8, 2024-2-23 06:20

Powered by Net188.com X3.4

邮箱:312337667@qq.com 客服QQ:312337667(工作时间:9:00~21:00)

快速回复 返回顶部 返回列表