delphi变体记录问题

这样解决是有误的， 这只是一种写法,并不是要付0,1给什么，表示的是这个记录有两种变体
var vpt:TSockAddrIn
你这样的输入 vpt的时候 会显示如上5个属性（即所有的），怎么用就是你自己的事了
当然上面的写法 与如下写法是一样的:
TSockAddrIn = packed record
case Boolean of
True: (sin_family: u_short;
sin_port: u_short;
sin_addr: TInAddr;
sin_zero: array[07] of Char);
False: (sa_family: u_short;
sa_data: array[013] of Char)
end;
只是INTEGER 你还可以，2，3，4 写下去 有多种变体

---