packed record和record的区别

最新推荐文章于 2024-03-24 22:52:14 发布

转载最新推荐文章于 2024-03-24 22:52:14 发布 · 545 阅读

文章标签：

#integer #delphi #string #编程 #windows #n2

应用程序专栏收录该内容

11 篇文章

订阅专栏

本文探讨了Delphi中PackedRecord与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

Record的数据各个字节都是对齐的，数据格式比较完整，所以这种格式相对packed占用的内存比较大，
但是因为格式比较整齐，所以电脑读取这个类型的数据的时候速度比较快。

而Packed Record对数据进行了压缩，节省了内存空间，当然他的速度也变的慢了。

type
// Declare an unpacked record
TDefaultRecord = Record
name1 : string[4];
floater : single;
name2 : char;
int : Integer;
end;
// Declare a packed record
TPackedRecord = Packed Record
name1 : string[4];
floater : single;
name2 : char;
int : Integer;
end;
var
defaultRec : TDefaultRecord;
packedRec : TPackedRecord;
begin
ShowMessage('Default record size = '+IntToStr(SizeOf(defaultRec)));
ShowMessage('Packed record size = '+IntToStr(SizeOf(packedRec)));
end;

Default record size = 20
Packed record size = 14

不过，对于现在的操作系统来，packed Record 节省的那些空间已不用考虑他了。除了做DLL（不用packed容易造成内存混乱）和做硬件
编程时（比如串口）编程时必须用到packed Record，其它情况都可以用Record