Forum: Sonstige Fragen zu Delphi
by Deep-Sea,
9. Jun 2011
Noch mal als "einfach lesbare" Version (wobei CRC16_TABLE halt die bekannte Tabelle darstellt). So entspricht es meiner Meinung nach dem C-Code. Funktioniert aber trotzdem nicht, wenn man die Beispiele berechnet.
function GenerateCRC16(const AValue: AnsiString): Word;
var
LChar: AnsiChar;
begin
Result := High(Result);
For LChar in AValue do
Result := Ord(LChar) xor (Result shl 8)...
Forum: Sonstige Fragen zu Delphi
by Deep-Sea,
9. Jun 2011
Stimmt - gerade gesehen. Dann ist das aber auch kein echtes CRC. Naja, okay.
Forum: Sonstige Fragen zu Delphi
by Deep-Sea,
9. Jun 2011
Wieso muss man ausgerechnet genau diese C-Implementation übersetzen? Es gibt doch schon hunderte CRC-Funktionen die bereits in Delphi vorliegen. Da kann man sich den Stress sparen.
Wieso wird ein Byte-Pointer zu einem String übersetzt? :stupid: