Prüfsumme berechnen

[Gehstock]

Dat Ist ein Array of Byte was aber unterschiedlich groß sein kann
C soll die Größe des Arrays sein
ETX ein einzelnes Byte

die Funktion soll praktisch
Dat[1] xor Dat[2] Xor Dat[3] xor ETX usw. rechnen

Delphi-Quellcode:

Function TForm1.CalcBCC(Dat : Array of Byte ; C : Integer ; ETX : Byte):Byte;
var
 I : Integer;
begin
 for I := 2 to C do
  Begin
   Result := Dat[1] xor Dat[i];
  End;
 Result := Result xor ETX;
end;

steh aber bei der umsetzung auf dem schlauch zumindes ist das ergebnis falsch