Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**Gehstock**

Ja das Geht Danke

Edit: Nein So

Delphi-Quellcode:

			var

I : Integer;

begin

  result := 0;

  for I := 0 to high(dat) do

      Result := result xor Dat[i];

  Result := Result xor ETX;

end;

war schon ok

Gehstock Registriert seit: 28. Jan 2006 Ort: Görlitz / Sachsen 489 Beiträge Delphi 2007 Professional	#4 Re: Prüfsumme berechnen 18. Dez 2008, 15:14 Ja das Geht Danke Edit: Nein So markieren Delphi-Quellcode: var I : Integer; begin result := 0; for I := 0 to high(dat) do Result := result xor Dat[i]; Result := Result xor ETX; end; war schon ok Marcel
	Zitat