VB -> Delphi Problem

[The-X]

Zitat von sakura:

StrToInt und Ord sind verschiedener Natur (siehe OH).

Code:

  for i:=1 to Length(CalcString) do
    begin
      if (Ord(Username[i])) * i = 0 then
        Quersum:=Quersum + 4
      else
        Quersum:=Quersum + (([color=#FF0000]Ord[/color](CalcString[i]) * I) div 2);
    end;

......

hmm? VB-Val = Delphi-Ord ?? Niemals!!!

Code:

  for i:=1 to Length(CalcString) do
    begin
      if ([color=#FF0000]StrToInt[/color](Username[i])) * i = 0 then
        Quersum:=Quersum + 4
      else
        Quersum:=Quersum + (([color=#FF0000]StrToInt[/color](CalcString[i]) * I) div 2);
    end;

oder aber (Ord(Username[i])-$30) das kommt auf selbe raus wenn nur Zahlen im String sind