Checksumme in einem Übertragungsprotokoll bilden (LSB)

[Memo]

Delphi-Quellcode:

function CheckData(s: string): string;
var
  i: integer;
  SumAscii: integer;
  L: integer;
begin
    SumAscii := 0;
    for i := 1 to Length(s) - 3 do
      SumAscii := SumAscii + Ord(s[i]);

    L := (SumAscii shr 8) and $00FF;
    Result := IntToHex(L,1);
end;



procedure TForm1.btn1Click(Sender: TObject);
begin
  lbl1.Caption:= CheckData('01/00044/O/01/01720123445/2323//3/54657374/')
end;