Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Checksumme in einem Übertragungsprotokoll bilden (LSB)

    Delphi
    by Reinhard Kern, 16. Feb 2009
  Hallo,
  
  es ist viel einfacher als du denkst: in Hex-Darstellung sind das die letzten beiden Digits, also von $883 wird nur $83 verwendet. Deshalb brauchst du beim Summieren die oberen Bits und Bytes garnicht mitrechnen, du kannst immer gleich nur das unterste Byte weiterverwenden:
  
  
  function TForm1.CreateCheckSum(InStr: String): String;
  var rCount,
  Sum : Integer;
  begin
  Sum :=...