vb function zu delphi konvertieren

[Generalissimo]

Zitat von 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 
  begin
    ch := Ord(strng[I]); 
    for j := 0 to 7 do 
    begin
      if ((crc Xor ch) And 1) <> 0 Then 
        crc:= (Trunc(crc /2) Xor 40961) 
      else 
        crc:= Trunc(crc /2)[color=#ff0000];[/color]
      [s][color=#ff0000]end;[/color][/s] 
      ch:= Trunc(crc /2); 
    end; 
  end; 
  result:= crc; 
end;

ein end; zuviel