MyRecord = record
           I:Integer;
           S:String;
         case tag:Integer of 
             0:(DI:String);
             1:(D2:Integer);
      end;像上面的代码:
如果 tag 的值为 0 ,则声明 D1:String;
如果 tag 的值为 1 ,则声明 D2:Integer; 
是吗?如果是的话,那又有什么实际的用处呢?