学习结构[记录]类型(1) - 开始 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} //如果要记录一个人的姓名和年龄, 可以: procedure TForm1.Button1Click(Sender: TObject); var name: string; age: Word; begin {赋值} name := '张三'; age := 18; {读取} ShowMessage(Format('%s今年%d岁', [name,age])); {张三今年18岁} end; //不如定义一个结构类型 procedure TForm1.Button2Click(Sender: TObject); type TPerson = record name: string[12]; {在结构里面不能使用长字符串} age: Word; end; var person: TPerson; {声明结构变量} const str = '%s今年%d岁'; {为格式化输出准备一个常量} begin {赋值} person.name := '李四'; person.age := 81; {读取} ShowMessage(Format(str, [person.name,person.age])); {李四今年81岁} end; end.
学习结构[记录]类型(2) - 压缩结构 type TRec1 = record i: Integer; w: Word; end; TRec2 = packed record {压缩结构: 牺牲效率, 减小尺寸} i: Integer; w: Word; end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(IntToStr(SizeOf(TRec1))); {8} ShowMessage(IntToStr(SizeOf(TRec2))); {6} end;
学习结构[记录]类型(3) - 结构间的关系
type TRec1 = record name: string[ 12]; age: Word; end; TRec2 = record name: string[ 12]; age: Word; end; var RecA,RecB: TRec1; RecX,RecY: TRec2; procedure TForm1 .Button1Click(Sender: TObject); begin {给 RecA 赋值} RecA .name := '张三'; RecA .age := 18; {复制 RecA 给 RecB} RecB := RecA; {现在 RecB 的值和 RecA 一样} ShowMessage(RecB .name); {张三} {修改 RecB 的值} RecB .name := '李四'; {RecA 的值不变, 因为现在 RecA、RecB 是两个不同的数据} ShowMessage(RecA .name); {张三} //RecX := RecA; {这样会出错!} {尽管 RecX 与 RecA 的内部结构完全一样, 但 Delphi 认为它们是不同的数据类型} RecX := TRec2(RecA); {但可以强制转换} ShowMessage(RecX .name); {张三} RecY .name := RecB .name; {交换内部值是可以的} RecY .age := RecA .age; ShowMessage(RecY .name); {李四} end;
学习结构[记录]类型(4) - 结构指针 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} type TRec = record {定义结构 TRec} name: string[12]; age: Word; end; TPRec = ^TRec; {定义 TRec 结构的指针类型 TPRec} var Rec: TRec; {声明结构变量} PRec1,PRec2: TPRec; {声明 TPRec 指针变量} PRec3: ^TRec; {声明 TRec 结构的指针变量, 现在 PRec1 与 PRec3 是不同类型的变量} P: Pointer; {声明无类型指针} //通过结构指针访问结构 procedure TForm1.Button1Click(Sender: TObject); begin Rec.name := '张三'; Rec.age := 18; PRec1 := @Rec; {把 Rec 的地址告诉 PRec1} {本来应该这样访问} ShowMessage(PRec1^.name); {张三} {Delphi 允许这样简单使用结构指针} ShowMessage(PRec1.name); {张三} {如果我们通过指针修改了数据} PRec1.name := '李四'; {那么} ShowMessage(Rec.name); {李四} {因为 PRec1 和 Rec 所指的是同一个数据} end; //如果是单独使用指针, 必须先给内存 procedure TForm1.Button2Click(Sender: TObject); begin GetMem(PRec2, SizeOf(TRec)); PRec2.name := '王五'; PRec2.age := 9; ShowMessage(PRec2.name); {王五} {手工给的内存, 必须手工释放} FreeMem(PRec2); end; //虽是同一个结构的指针, 但还不是一个类型 procedure TForm1.Button3Click(Sender: TObject); begin Rec.name := '孙六'; Rec.age := 16; {把 Rec 的地址给属于 ^Rec 类型的 PRec3 指针} PRec3 := @Rec; ShowMessage(PRec3.name); {孙六} {如果要把 PRec3 知道的值告诉 PRec1, 需要类型转换} PRec1 := TPRec(PRec3); ShowMessage(PRec1.name); {孙六} {反过来想, 如果要把 PRec1 知道的值告诉 PRec3 呢?} Rec.name := '赵七'; Rec.age := 24; PRec1 := @Rec; ShowMessage(PRec1.name); {赵七} {这样转换} TPRec(PRec3) := PRec1; ShowMessage(PRec3.name); {赵七} end; //用无类型指针读写 TRec 中的数据 procedure TForm1.Button4Click(Sender: TObject); begin Rec.name := '杜八'; Rec.age := 36; P := @Rec; {赋值} TPRec(P).name := '侯九'; {取值} ShowMessage(TPRec(P).name); {侯九} end; end.
学习结构[记录]类型(5) - 结构的方法 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} type TRec = record {定义结构 TRec} name: string[12]; age: Word; function RecShow: string; {在结构中只能使用静态方法} end; { TRec 结构方法的实现} function TRec.RecShow: string; const str = '%s今年%d岁了'; begin Result := Format(str, [name,age]); end; //使用结构 procedure TForm1.Button1Click(Sender: TObject); var rec: TRec; begin rec.name := '张三'; rec.age := 18; ShowMessage(rec.RecShow); end; end.
学习结构[记录]类型(6) - 结构的属性 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} type TStr12 = string[12]; {属性不接受 string[12], 只好定义成一个类型或使用 ShortString} TRec = record {定义结构 TRec} strict private {如果不使用 strict 修饰符, 在同一单元内的私有变量也是可以访问的} Fname: TStr12; Fage: Word; procedure Setage(const Value: Word); procedure Setname(const Value: TStr12); public property name: TStr12 read Fname write Setname; property age: Word read Fage write Setage; end; { TRec 属性要调用的方法实现} procedure TRec.Setname(const Value: TStr12); begin if Value='' then {这时可以提出一些条件, 譬如譬如姓名不能为空} Fname := '无名氏' else Fname := Value; end; procedure TRec.Setage(const Value: Word); begin if (Value<150) and (Value>=0) then {这时可以提出一些条件, 譬如年龄一般不会超过 150} Fage := Value else Fage := 0; end; //使用结构 procedure TForm1.Button1Click(Sender: TObject); var rec: TRec; begin rec.name := '张三'; {现在的 name 和 age 已经是属性了} rec.age := 800; ShowMessage(rec.name); {张三} ShowMessage(IntToStr(rec.age)); {0} rec.name := ''; rec.age := 18; ShowMessage(rec.name); {无名氏} ShowMessage(IntToStr(rec.age)); {18} end; end.
学习结构[记录]类型(7) - 结构也可以有构造函数
结构的方法、属性都是在 Delphi 7 以后的版本中加入的, 非常类似与"类", 但又不如在"类"里完善; 它的其他一些新特性也好像是从"类"里搬过来的, 等在"类"里面研究吧.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} type TRec = record {定义结构 TRec} name: ShortString; age: Word; constructor Create(str: ShortString; w: Word); {构造函数} end; { TRec 构造函数实现} constructor TRec.Create(str: ShortString; w: Word); begin name := str; age := w; end; //使用结构 procedure TForm1.Button1Click(Sender: TObject); var rec: TRec; begin rec.Create('李四', 81); ShowMessage(rec.name); {李四} end; end. 学习结构[记录]类型(8) - 结构嵌套 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} //间接嵌套 procedure TForm1.Button1Click(Sender: TObject); type TWife = record {妻子的数据结构} name: string; age: Word; end; TMan = record {男人的数据结构} name: string; age: Word; wife: TWife; {这里嵌套了结构} end; var man: TMan; begin man.name := '张三'; man.age := 63; man.wife.name := '马翠'; man.wife.age := 36; ShowMessage(man.name + #32 + man.wife.name); {张三 马翠} ShowMessage(IntToStr(SizeOf(man))); end; //直接嵌套 procedure TForm1.Button2Click(Sender: TObject); type TMan = record {男人的数据结构} name: string; age: Word; wife: record name: string; age: Word; end; {直接嵌套结构} end; var man: TMan; begin man.name := '张三'; man.age := 63; man.wife.name := '马翠'; man.wife.age := 36; ShowMessage(man.name + #32 + man.wife.name); {张三 马翠} end; //另外, 说到直接嵌套, 其实结构事先不定义, 也是可以直接使用的, 如: procedure TForm1.Button3Click(Sender: TObject); var man: record name: string; age: Word; end; begin man.name := '李四'; man.age := 81; ShowMessage(man.name); {李四} end; { 注意没有, 在本页的例子中, 结构中的 name 被声明为 string ! 结构中不是不允许长字符串吗? 其实 Delphi 在这里是把 string 当作 ShortString 用的. 也就是说这里的 string 最大容量是 255 个字符, 127 个汉字. } end. 学习结构[记录]类型(9) - 变体结构
变体结构也就是变体记录, 是一个比较复杂的概念. 专家不提倡使用. 兴趣所致, 我想把它弄明白. 一个最大的无符号整数(Cardinal)是 4294967295, 它的大小是 4 字节, 它的二进制表示是: 11111111 11111111 11111111 11111111 它的低字节的值是 11111111, 也就是十进制的 255
一个 Byte 类型的最大值是 255, 它的大小是 1 个字节, 用二进制表示是:11111111假如把一个 Cardinal 类型的值赋给一个 Byte 类型的值, Byte 将只取 Cardinal 的最低字节.
这是我们能否会想到, 在结构会储存时, 一个可以储存 Cardinal 的空间, 当然也能得放下一个 Byte 值;如果这个值非此即彼, 我们完全不需要两个储存空间.我猜测, 这应该是 Delphi 设计变体记录的初衷.
