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