Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: CRC16 Problem mit Input ASCII/Hex

   
    by KodeZwerg, 10. Apr 2018
  Hier nochmal eine leicht abgeänderte Variante in der hoffentlich der Datei-Modus korrekt arbeitet aber irgendwie dennoch nicht. Ich komme da nicht weiter. Für die CalcCRC16() wird nun zum Puffer auch noch ein Startwert übergeben. Ob nun $0000 oder $FFFF korrekt ist kann ich noch nicht sagen, so kann jeder bei Laufzeit selbst bestimmen, ich brauch's Hauptsächlich wegen der Datei-Funktion.
  
  unit...
• Forum: Programmieren allgemein

  AW: CRC16 Problem mit Input ASCII/Hex

   
    by KodeZwerg, 10. Apr 2018
  Ich sollte noch anmerken, der Code enthält keine Fehlerbehandlung, also auf Input-Korrektheit sollte entweder im Vorfeld oder in meinem Beispiel Code ergänzt werden, Ansätze hätte man ja, Code kann auch noch gekürzt werden, momentan alles ausführlich zum Testen.
• Forum: Programmieren allgemein

  AW: CRC16 Problem mit Input ASCII/Hex

   
    by KodeZwerg, 10. Apr 2018
  Ich hatte mich da an das gepostete Beispiel für "So und nicht anders" gehalten, da stand's halt mit $FFFF definiert und ja Du hast recht, so bekomme ich in beiden Cases das korrekte Ergebniss, freut mich das nun alles klappt.
  Das mit der Datei ist ja egal, war nur so ein Nebendingens.
• Forum: Programmieren allgemein

  AW: CRC16 Problem mit Input ASCII/Hex

   
    by KodeZwerg, 10. Apr 2018
  Dafür ist doch das "Case" gedacht, entweder Zeichenweise oder Paarweise als Hex-Wert.
• Forum: Programmieren allgemein

  AW: CRC16 Problem mit Input ASCII/Hex

   
    by KodeZwerg, 10. Apr 2018
  Ich habe mal die String-Nach-CRC16 überarbeitet aber bekomme dennoch andere Ergebnisse.
  
  procedure TForm1.Button2Click(Sender: TObject);
  var
  s: String;
  buff: packed array of byte;
  i: Integer;
  begin
  case RadioGroup1.ItemIndex of
  0: begin // Input ist String
• Forum: Programmieren allgemein

  AW: CRC16 Problem mit Input ASCII/Hex

   
    by KodeZwerg, 10. Apr 2018
  Ich habe mal ein gebastelt, ausgehend von den vorliegenden Beispiel ist dies dabei rausgekommen:
  
  unit uCRC16;
  
  interface
  
  uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;