Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi checksum eines RS232-strings erstellen

**gammatester**

Delphi-Quellcode:

			sum := 0;

for i := 1 to length(s) do inc(sum, ord(s[i]));

checkchar := char(-sum and $FF);

gammatester Registriert seit: 6. Dez 2005 999 Beiträge	#9 AW: checksum eines RS232-strings erstellen 14. Dez 2010, 16:57 markieren Delphi-Quellcode: sum := 0; for i := 1 to length(s) do inc(sum, ord(s[i])); checkchar := char(-sum and $FF);
	Zitat