2 Integerwerte in einem Integerwert reversibel speichern?

[jfheins]

Ganz einfach? So:

Delphi-Quellcode:

a: Cardinal;
begin
  a := MakeLong(2457, 546);
end;

Rausholen dann so:

Delphi-Quellcode:

b := HiWord(a);
c := LoWord(a);