Bytes auf ein Integer auffädeln

[Uwe Raabe]

Probier doch mal folgende Funktion aus:

Delphi-Quellcode:

function MakeInteger(const Bytes: array of Byte): Integer;
var
  buf: LongRec;
  I: Integer;
  N: Integer;
begin
  Integer(buf) := 0;
  N := Length(Bytes) - 1;
  Assert(N < 4, 'mehr als vier Bytes übergeben');
  for I := 0 to N do begin
    buf.Bytes[N - I] := Bytes[I];
  end;
  Result := Integer(buf);
end;

// Aufruf:
MyInt := MakeInteger([FReceiveBuffer[9], FReceiveBuffer[10]]);