VBA Script in Delphi umsetzen

[BUllweih]

Hallo,

Also wenn ich aus

Delphi-Quellcode:

  For i := 1 To length(Data) do
   begin
     lCRC32 := (((lCRC32 shr 8) And $FFFFFF) Xor
       Crc32Table1[(lCRC32 and $FF) xor Ord(Data[i])]);
   end;

mache

Delphi-Quellcode:

  For i := 1 To length(Data) do
   begin
     lCRC32 := (((lCRC32 shr 32) And $FFFFFF) Xor
       Crc32Table1[(lCRC32 and $FF) xor Ord(Data[i])]);
   end;

bekomme ich das Ergebnis was auch VB bringt.

MfG
Michael