Hier der angepasste Code vom alzaimar
wenn Du STX als Startwert nimmst, wird STX auch in der Checksummer auftauchen.
Grüße
Klaus
Delphi-Quellcode:
Function CheckSum (Const aString : String) : String;
Var
i : Integer;
r :Byte;
Begin
If Length (aString)=0 Then
r := 0
Else Begin
r := 2; //STX ^B
For i:=1 To Length (aString) Do
r := r xor Ord (aString[i]);
End;
Result := IntToHex (r,2);
End;