Delphi-Quellcode:
function SwapHiLo(const AWord: Word): Word;
begin
result := Hi(AWord) or (Lo(AWord) shl 8);
end;
Du hast doch jetzt bestimmt auch schon ein paar Routinen für den BigEndian/LowEndian Byte-Swap. Diese kannst du einfach nutzen, da zweimal geswappt wieder original ist - wenn du verstehst was ich meine.