delphi 可变记录

======================================================
注：本文源代码点此下载
======================================================

一直对可变记录不清楚,终于知道点什么也可还是不清楚,把别人的摘录下来了

若记录是由一部分固定不变和另一部分变化部分是随固定部分中的某个数据

项的具体取值而定的数据项所组成的称为记录变体。带记录变体的记录类型定义有以下形式:

type

=record

:;

:;

……

:;

case : of

:;

:;

……

:;

end;

可变部分中的标识域可有可无

下面是几种结构体的定义

type

tmyrcord=reocord

a:integer;

b:integer;

case c:integer of

1:(d:string[20]);

2: (e:dword);

end;

这个结构体中的值域实际有5个;你可以对a,b,c,d,e,分别赋值;

如果赋值的顺序是这样 myrecord.d='dfd';myrecord.e:=2;那么d的值将被

e 覆盖掉,因为他们用的是同一地址;c可以任意付给整型值赋值;它只是提供给一个

标识作用;

tmr=record

case integer of

1(a:integer);

2(b:sring[1]);

end;

这个结构体没有标识符只有类型;这里的integer只是表明这是一个可变记录

它的作用和下面的记录体是一样的

tmr2=record

case char of

'a':(a:integer);

'b':(b:string[10];

end;

char和integer只是一个标识作用

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/