请教一个类型定义

[zhourongbiao]

ColorConvert 是个什么呀？不太明白。
function SetShaddow(color:TColor):TColor;
type
ColorConvert = record
case byte of //这是什么意思？
0 : (z:TColor);
1 : (a,b,c,d : byte);
end;
begin
ColorConvert(result).a:=ColorConvert(color).a div 2;
ColorConvert(result).b:=ColorConvert(color).b div 2;
ColorConvert(result).c:=ColorConvert(color).c div 2;
ColorConvert(result).d:=ColorConvert(color).d div 2;
end;

[chinasdp]

ColorConvert = record
case byte of //这是什么意思？
0 : (z:TColor);
1 : (a,b,c,d : byte);
end;
可变记录，和C中的共用体（union）一样。

借用Delphi5开发人员指南中的一段话：

Object Pascal也支持可变记录，它允许在记录中不同的数据共同覆盖相同的内存。不要跟Variant数据类型相混淆，可变记录允许彼此覆盖的数据能被单独访问。如果对C / C + +语言很熟悉，你一眼就
能看出来它跟C / C + +中的union概念一样