vb function zu delphi konvertieren

[sakura]

Code:

function calccrc(strng: string[color=#ff0009][s]; lenstr: integer[/s][/color]): integer;
var
  crc, ch, i, j: integer;
begin
  [color=#ff0009]CRC := 0;[/color]
  for i := [color=#ff0009]1 to Length(Strng)[/color] do
    ch := [color=#ff0009]Ord(strng[I]);[/color]
    for j := 0 to 7 do
      if ((crc Xor ch) And 1)[color=#ff0009] <> 0[/color] Then
        crc:= ([color=#ff0009]Trunc(crc /2)[/color] Xor 40961)
      else
        crc:= [color=#ff0009]Trunc(crc /2)[/color];
      end;
        ch:= [color=#ff0009]Trunc(crc /2)[/color];
    end;
  end;
  result:= crc;
end;

Das sollte es sein

......