델파이에서 C 구조체 union 흉내내기

http://www.aspfree.com/c/a/.NET/The-Delphi-Language-Part-1/8/

C 언어를 알고 있는 사람이면 누구나 union 이라는 것을 알 것이다.

델파이에서도 동일한 개념이 있다.

C 언어에서 다음과 같은 구제체가 있다면,

struct TUnionStruct 
{ 
  char * StrField; 
  int IntField; 
  union u 
  { 
    double D; 
    int i; 
    char c; 
  }; 
};

델파이로 위의 것을 표현하면 다음과 같다.

type 
  TVariantRecord = record 
    NullStrField: PChar; 
    IntField: Integer; 
    case Integer of 
      0: (D: Double); 
      1: (I: Integer); 
      2: (C: Char); 
end;