DELPHI中的记录类型存储方式.docx

DELPHI中的记录类型【存储方式和变体记录】

一、DELPHI中记录的存储方式

在DELPHI中，我们用record关键字来表明一个记录，有时候，我们还会看到用packedrecord来声明的记录，这二者的区别就在于存储方式的不同。

在windows中，内存的分配一次是4个字节的，而Packed按字节进行内存的申请和分配，这样速度要慢一些，因为需要额

外的时间来进行指针的定位。因此如果不用Packed的话，Delphi将按一次4个字节的方式申请内存，因此如果一个变量没有4

个字节宽的话也要占4个字节！这样浪费了一些空间，但提高了效率。所谓鱼与熊掌不可兼得。

例如一个记录，以,sizeof(wudi)应该得到8。而如果使用packed关键字，那么sizeof(wudi)则得到5。

typewudi=record

age:integer;

sex:shortint;

end;

其中age是integer类型，正好4个字节，而sex是showint类型，占用一个字节，但基于4字节得内存分配方式，这里它也将占用4个字节。所

二、DELPHI中的变体记录

在DELPHI中，观察Tmessage和TTypeData的定义的定义，从关键字record，你一眼就可以看出，它是一个记录类型，但仔细观察，你又会发现在它的定义中出现了case关键字。它代表什么呢？

它代表此记录是变体记录。让我们先去了解一下变体记录。

一个典型的变体记录定义如下：

typerecordTypeName=record

fieldList1:type1;

...

fieldListn:typen;

casetag:ordinalTypeof

constantList1:(variant1);

...

constantListn:(variantn);

end;

其中case到结尾部分定义了多个变体字段。所有变体字段共享一段内存大小又最大变体字段决定。

使用变体记录时要注意：

LongString、WideString、DynamicArray、Interface的大小都是指针大小，OleVariant其实就是COMSDK中的VARIANT结构，大小是16字节。但在ObjectPascal中它们都需要自动终结化，如果它们出现在variantpart中，编译器就无法知道它们是否应该进行终结化――因为不知道当前存储的是哪种类型。

所有变体字段共享一段内存。而共享内存的大小则由最大变体字段决定。

当tag存在时，它也是记录的一个字段。也可以没有tag。

记录的变体部分的条件域必须是有序类型

记录类型中可以含有变体部分，有点象case语句，但没有最好的end，变体部分必需在记录中其他字段的声明之后

变体记录得作用

节约空间。对于那些要根据条件而决定是否存储得类型，完全可以利用变体记录来达到节约空间得效果。例如，一个公司的员工薪水可以是月薪、年薪等方式，那么并没有必要在记录中都分配空间而又用不到。

类型的转换。例如，如果有一个64位的整数类型作为变体的第一个字段，一个32位的整数Integer类型作为另一个变体的第一个字段，那么可以向64字段赋值然后以整数Integer字段读出其前32位

妙用还有很多，根据它的原理挖掘吧

一个演示变体记录使用的例子

{

作者:wudi_1982

联系方式:wudi_1982@

转载请著名出处

}

unitUnit1;

interface

uses

Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,

Dialogs,typinfo,StdCtrls,ComCtrls,ExtCtrls;

type

WdFileType=(Files,Dirs);//类型信息

TWdFileInfo=record//一个变体记录

Fname:string[10];//文件名

casetypeid:WdFileTypeof//根据是文件夹还是文件来决定

Files:(Fsize:integer);//文件大小

Dirs:(Dsize :integer;//文件夹大小

ContainFileCount:integer;//包含文件的个数

ContainDirCount:integer);//包含文件夹的个数

end;

TForm1=class(TForm)

Memo1:TMemo;

Panel1:TPanel;

Button1