2 Variablen selber länge unterschiedlichen Typs auf selber Speicheradresse

[Uwe Raabe]

Delphi-Quellcode:

type
  TBDataRead = packed record
    w1: WORD;
    w2: WORD;
    i1: SMALLINT;
    i2: SMALLINT;
  end;

  TArrayOfWordRead = array [0 .. 3] of WORD;

  TUnion = record
  case Integer of
    0: (BData: TBDataRead);
    1: (WArray: TArrayOfWordRead);
  end;


  TBDBThreadBusInterface = class
  private
    LUnion: TUnion;
  end;

Zugriff über LUnion.BData bzw. LUnion.WArray .