Von C nach Delphi

[js747a]

Hallo, ich versuche einen Code von C nach Delphi zu übersetzen um Teile davon in meinem Modellbahnprogramm zu benutzen.

Kann jemand diese Zeile übersetzen. ??

received ist ein Array of Byte
i = (received[7]<<24)+(received[6]<<16)+(received[5]<<8)+(received[4]);
Die Bytes 4 bis 7 sollen eine Seriennummer 32 Bit (little endian) sein


Ich habe mal versucht mit
x : Integer;
BArray Array[0..7] of Byte;

x := BArray[7] shl 24;
x := x + BArray[6] shl 16;
x := x + BArray[5] shl 8;
x := x + BArray[4];

Hier ist x weit entfernt von der richtigen Nr


x := BArray[7] shl 16;
x := x + BArray[6] shl 8;
x := x + BArray[5] shr 8;
x := x + BArray[4] shr 16;

Hier ist x schon näher dran an der richtigen Nr