delphi变体记录如何使用.docVIP

delphi的变体记录类型变体的条件是什么？ TEmployee = record ID: Integer; case Integer of 0:(YearMoney: Integer); 1:(MonthMoney: ShortInt); end; 上面变体记录类型什么时 候该选择0什么时候该选择1，这个条件是什么？系统怎么判定的，还有case integer of 这句怎么解析？谢谢大家。  HTMLCONTROL Forms.HTML:Hidden.1  HTMLCONTROL Forms.HTML:Hidden.1  HTMLCONTROL Forms.HTML:Hidden.1  HTMLCONTROL Forms.HTML:Hidden.1  HTMLCONTROL Forms.HTML:Hidden.1  HTMLCONTROL Forms.HTML:Hidden.1  HTMLCONTROL Forms.HTML:Hidden.1  精彩回答 这样理解是有误的，这只是一种写法,并不是要赋给0,1什么的，表示的是这个记录有两种变体。系统跟据你所使用的成员变量名称来自动进行判断。case integer of 其实是指对一块内存的不同解读方式，YearMoney，MonthMoney会共用一块系统为其分配的内存。 var emp: TEmployee 你这样的输入 emp.的时候就会显示如上两个属性（即所有的），怎么用就是你自己的事了。 系统不会判定到底是0还是1，这个都是你自己处理的，你自己判定到底用哪个值，你可以把结构改成这样： TEmployee = record ID: Integer; case t:Integer of//注意：这里加了个t，用来区分用0还是用1 0:(YearMoney: Integer); 1:(MonthMoney: ShortInt); end; 给这个结构赋值的时候，你自己要赋给t一个值，这样你才能判断是年薪还是月薪。 变体结构最大的意义是内存共享，象你上面的结构，其实YearMoney和MonthMoney都用同一块内存(虽然它们长度不一样),这样，当你给一个赋值时另一个也会有值，只是因为数据类型不同而有不同的表现结果。 给你起一个简单的例子你就明白了，比如Delphi中的TColor(颜色类型),其实它是一个整型，而我们知道，颜色是由红(r),绿(g),蓝(b)三原色组成的，那我们怎么知道一个颜色值的R,G,B值各是多少呢？请看下面： 定义一个变体结构： Type TColorRec=record case Integer of 0:(Color:TColor); 1:(r,g,b:Byte); end; 定义结构体后，其实Color和r,g,b三个都共享一块内存，但是TColor是整型占四个字节，而r,g,b三个总共只占三个字节，所以有一个字节没用上。下面是内存的结构，0就是没用上的。 |0|b|g|r| 程序： procedure TForm1.Button1Click(Sender: TObject); var cRec:TColorRec; begin cRec.Color:=RGB(50,100,200);//调RGB函数生成一个颜色值并赋给结构的Color showmessageFmt(r:%d g:%d b:%d ,[cRec.r,cRec.g,cRec.b]);//通过结构返回r,g,b各值 end; 这样应该明白了吧