checksum eines RS232-strings erstellen

[shmia]

Delphi-Quellcode:

sum := 0;
if i := 1 to length(s) then
  inc(sum, ord(s[i]));

checkchar := char((not sum) and $FF);
s := s + checkchar;

[GPR-Man]

Danke, der Code ergibt jedoch für FFD0020005 2E an Stelle von 2A und für FF1000 F0 an Stelle von F1.

[gammatester]

Delphi-Quellcode:

sum := 0;
for i := 1 to length(s) do inc(sum, ord(s[i]));
checkchar := char(-sum and $FF);

[GPR-Man]

Der Code sieht nun so aus:

Delphi-Quellcode:

  function CalculateChecksum(s: string): Longint;
  var
    i, sum: integer;
    checkchar : Char;
  begin
    sum := 0;
    for i := 0 to length(s)-1 do
      inc(sum, ord(s[i]));
    checkchar := char((- sum) and $FF);

    Result := Ord(checkchar);
  end;

und liefert bei 3 bytes den korrekten Wert, also FF1000 -> F1 oder FF3000 -> D1. Sobald der String jedoch länger wird, stimmt es nicht mehr:
- FF64020006 ergibt 9B, sollte 95 sein
- FF900200FF ergibt 6F, sollte 70 sein
- FFD20400000005 ergibt 2B, sollte 26 sein
Was muss man noch ändern?

[gammatester]

Die von mir angegebene Funktion liefert die korrekten Werte. Wenn Du sie verschlimmbesserst, indem Du i von 0 aus startest, darfst Du Dich nicht wundern, wenn sie falsche Ergebnisse liefert.

[GPR-Man]

Danke, ärgerlich meinerseits, denn wenn man richtig
for i := 1 to length(s) do verwendet, stimmt alles.
Sorry und besten Dank für die sehr hilfreiche Unterstützung!

[DeddyH]

Zumal wir das in #2 bereits hatten