Moin,
MidStr() würde ich nur dann verwenden, wenn ich mehr als ein einzelnes Zeichen abgreifen möchte. Bei einem einzelnen Zeichen kann ich den String wie ein Character Array benutzen. Muss die CheckSumme nicht vorher initialisiert werden?
Delphi-Quellcode:
begin
// ...
CheckSumme := 0;
for iIndex := 1 to Length(Check) do
Checksumme := (CheckSumme + Ord(Check[iIndex])) mod 256;
Freundliche Grüße