Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: CRC von C in Delphi übersetze

   
    by mytbo, 27. Mär 2023
  Bist du sicher, dass deine Lösung richtig ist?
  
  
  Deine Interpretation entspricht nicht dem C-Code aus dem ersten Post. Ein einfacher automatisierter Test über 1M Runden ergibt bei mir ca. >25K Konflikte.
  {$R-}
  function CalcCRC(pmPText: PAnsiChar): Word;
  const
  CRC_TABLE: array of Word = (
  $0000, $1021, $2042, $3063, $4084, $50a5, $60c6, $70e7,
  $8108, $9129, $a14a, $b16b, $c18c,...
• Forum: Programmieren allgemein

  AW: CRC von C in Delphi übersetze

   
    by mytbo, 25. Mär 2023
  Wenn deine Vorgaben vollständig waren, sollte das die Lösung sein:
  {$R-}
  function CalcCRC(const pmcText: AnsiString): Word;
  const
  CRC_TABLE: array of Word = (
  $0000, $1021, $2042, $3063, $4084, $50a5, $60c6, $70e7,
  $8108, $9129, $a14a, $b16b, $c18c, $d1ad, $e1ce, $f1ef);
  var
  p: PAnsiChar;
  crc: Word;