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;