Konvertierung von BigEndian-Werten

[guinnes]

Delphi-Quellcode:

TConvert = Record
  case integer of
    0 : (Bytes : Array[0..3] of Byte);
    1 : (MyInt : Integer);
end;

function Big2Little32(ina:tpa4):integer;
var
  lConvert : TConvert;
begin
  lConvert.Bytes[0] := ima[3];
  lConvert.Bytes[1] := ina[2];
  lConvert.Bytes[2] := ina[1];
  lConvert.Bytes[3] := ina[0];
  Result ;) lConvert.MyInt;
end;