Union in Delphi

[hoika]

Hallo,
oder hier

https://www.delphipraxis.net/154106-case-integer.html

Delphi-Quellcode:

TMessage = packed record
    Msg: Cardinal;
    case Integer of
      0: (
        WParam: Longint;
        LParam: Longint;
        Result: Longint);
      1: (
        WParamLo: Word;
        WParamHi: Word;
        LParamLo: Word;
        LParamHi: Word;
        ResultLo: Word;
        ResultHi: Word);
  end;