Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Prüfsumme berechnen

    Delphi
    by Gehstock, 18. Dez 2008
  Ja das Geht Danke
  
  Edit: Nein Sovar
  I : Integer;
  begin
  result := 0;
  for I := 0 to high(dat) do
  Result := result xor Dat;
  Result := Result xor ETX;
  end; war schon ok
• Forum: Object-Pascal / Delphi-Language

  Prüfsumme berechnen

    Delphi
    by Gehstock, 18. Dez 2008
  Dat Ist ein Array of Byte was aber unterschiedlich groß sein kann
  C soll die Größe des Arrays sein
  ETX ein einzelnes Byte
  
  die Funktion soll praktisch
  Dat xor Dat Xor Dat xor ETXusw. rechnen
  
  Function TForm1.CalcBCC(Dat : Array of Byte ; C : Integer ; ETX : Byte):Byte;
  var
  I : Integer;