Union in Delphi

[Delphi.Narium]

Eventuell sowas?

https://www.delphipraxis.net/147752-union-c-delphi.html

[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;

[Der schöne Günther]

Zwei mal der gleiche Typ - Was macht diese Union für einen Sinn? 🤔

[himitsu]

Nja, die einfachste Idee:

Den letzten Teil einfach in beide varianten Teile mit rein.
Da mußt du die Felder aber umbenennen, da Namen ja nicht doppelt sein können.


Aber ist eh nicht nötig, also einfach nur in einen der Teile rein,
bzw. wenn die Teile unterschiedlich groß sind, dann in den Größten rein, oder z.B. in den Ersten und dann Dummyfelder (Platzhalter) davor.

[hoika]

Hallo,
frag doch mal den Hersteller (PTVGroup?), ob er eine Pascal-Implementierung hat.