vb function zu delphi konvertieren

[sakura]

Ich sehe gerade, daß Dir die Pascal-Syntax noch gar nicht liegt, da fehlen ein paar begins

Code:

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

Beachte das durchgestrichene Semikolon nach der Else-Anweisung

......