变体记录可以完成
record
  case a:Integer of
   1:(b:Integer);
   2:(c:double);
   3:(d:char);
end;

解决方案 »

  1.   

    chechy(chechy)很感谢你的回答,但DELPHI本身不是有UNION类型吗,在帮助中有,便没有说明如何使用,用DELPHI如何写呢? 
      

  2.   

    不好意思?也许是,liang_z(千山一刀之忍者神龟)你一定知道啦,我想你一定是一位PASCAL高手,可以指点一下吗? 
      

  3.   

    typedef union _S1_TYPE switch (long l1) U1_TYPE {  
        case 1024: 
            float f1; 
        case 2048: 
            double d2; 
    } S1_TYPE; 
    自己也不是看得太明白
      

  4.   

    PASCAL没有Union,但变体记录与之等价。Delphi基本上采用了Pascal的语法,所以Delphi不可能有Union。
      

  5.   

    对呀,pascal里没有union啊。你从那个帮助上看到的,是不是Windows sdk上的?
      

  6.   

    很感谢各位回答,但
    DELPHI5.0的帮助上有UNION YPYE INFORMATION的说明。
    和RECORD的说明一样,UNION就是没有说明用法,但RECORD却有