Übersetzen von 3 Zeilen C Code nach Delphi

[isilive]

Delphi-Quellcode:

const
  v: Array[Boolean] of Word = (0; $A001);
begin
  ...
  crc := (crc shr 1) xor v[(crc and 1)];
end;

Abgefahren