Big Endian Little Endian tauschen von smallint Wert und von normalem integer Wert

[Uwe Raabe]

Delphi-Quellcode:

uses
  Sysutils;

function SwapEndianSmallInt(Value: SmallInt): SmallInt;
begin
  result := System.Swap(Value);
end;

function SwapEndianInteger(Value: Integer): Integer;
begin
  LongRec(result).Lo := System.Swap(LongRec(Value).Hi);
  LongRec(result).Hi := System.Swap(LongRec(Value).Lo);
end;