Delphi 的Record结构体 变体
转http://blog.csdn.net/del123/article/details/2046861
一直以来对带case的Record只会用而不求甚解。知道他类似于c语言的union。今天详细看了help。了解一下。汗~啊。先对自己内心进行下自我批评~~~~
下面是偶的新体会。
1. 首先了解到record是可以限制field的范围的，而且定义枚举类型的。
type TDateRec = record
Year: Integer;
Month: (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec);
Day: 1..31;
end;
2. 可以在不定义结构体的情况下，直接在变量声明时使用。
var S: record
Name: string;
Age: Integer;
end;
3. 下面是变体部分，这是Delphi中变体在结构中的标准定义
type recordTypeName = record
fieldList1: type1;
...
fieldListn: typen;
case tag: ordinalType of
constantList1: (variant1);
...
constantListn: (variantn);
end;
Ø Tag可以省略
Ø constantList的类型和ordinalType的类型一致
Ø fieldList的类型不能是long strings, dynamic arrays, variants，也不能是包含这些的结 构体，但可以是指向这些类型的指针
Ø Tag和constantLists 在编译器处理这些字段时没有用，只是为程序员理解时提供方便 （原文：The optional tag and the constantLists play no role in the way the compiler manages the fields; they are there only for the convenience of the programmer.）
Ø 使用变体结构体的两个原因：一个是需要不同的数据，但是又不会同时需要所有的字段。
type TEmployee = record
FirstName, LastName: string[40];
BirthDate: TDate;
case Salaried: Boolean of
True: (AnnualSalary: Currency);
False: (HourlyWage: Currency);
end;
Ø 另一个原因是可以把同样的数据就像是不同的类型的数据。比如，你有一个64位的实数做为第一个字段，你就可以把它的高32位作为整数返回。这是Delphi帮助里说的。不太好看出来，而且Real到Interger的转换我也很少用。弄个Word到Byte的结构到时很常用。
Type
RConversion = record
Case Boolean of
True : (aWord: Word;);
False : (abyte bbyte : Byte;);
end;
这里附加一句观点，我和周围的同事认为这样的结构体会造成代码的易读性降低，一般在自己的代码中不建议使用，当然为兼容Windows的一些结构除外，他本来就是union当然用这样的直接套用就可以了。
结构体的基本应用就是这样的。还有一些特殊的应用，比如“class-like”的结构体，和file of record。
Class-like的结构体我不知道什么时候使用，既然需要Create，用类不就得了。下面有篇文章对原理有一些阐述http://blog.csdn.net/maozefa/archive/2007/08/27/1760612.aspx。
File of record，个人比较喜欢，特别是在记录某种数据的时候，经常是把一个结构体整个写入到文件里，既实现了一定程度的加密，又简单方便，读出来也可以直接放进结构体里。这里就不详细描述了。