Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Prüfsumme berechnen

    Delphi
    by himitsu, 18. Dez 2008
  ups, hatte mir einfach den Code von Klaus01 kopiert und ganz übersehn, daß er C mal verwendete .... hmmm, wenn das so ist, dann könntest du mit dem Const+C natürlich Recht haben :oops:
  
  OK, dann fragen wir einfach noch mit dazu:
  Wie wird CalcBCC denn verwendet bzw. aufgerufen?
• Forum: Object-Pascal / Delphi-Language

  Re: Prüfsumme berechnen

    Delphi
    by himitsu, 18. Dez 2008
  Klaus01 hat die 2 Problemchen eigentlich schon gefunden,
  Function TForm1.CalcBCC(Dat : Array of Byte ; C : Integer ; ETX : Byte):Byte;
  var
  I : Integer;
  begin
  Result := 0; // initialisieren
  for I := 0 to High(dat) do
  Result := Result xor Dat; // mit letzem Wert verknüpfen
  Result := Result xor ETX;
  end;