Übersetzen von 3 Zeilen C Code nach Delphi

[Aphton]

Code:

void get_crc( unsigned char d )
{
  int i;

  crc ^= d;
  for( i = 8; i; i-- ){
    crc = (crc >> 1) ^ ((crc & 1) ? 0xA001 : 0 );
  }
}

Delphi-Quellcode:

procedure get_crc(d: DWord);
var
  i: Integer;
const
  v: Array[Boolean] of Word = (0; $A001);
begin
  crc := crc xor d;
  for i := 8 downto 1 do
    crc := (crc shr 1) xor v[(crc and 1)];
end;