VB -> Delphi Problem

[CReber]

CalcString,Username: String;
QuerSum:longint;
i:integer;

Code:

    For I = 1 To Len(CalcString)
        If Val(Mid$(CalcString, I, 1)) * I = 0 Then
            Quersum = Quersum + 4
        Else
            Quersum = Quersum + ((Val(Mid$(CalcString, I, 1)) * I) / 2)
        End If
    Next I

Ich hab das folgendermassen auf Delphi übersetzt

Delphi-Quellcode:

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

Also am Anfang funktioniert das ja auch aber irgendwie werden die Werte der Quersumme dann unterschiedlich...

[MrSpock]

Hallo hOnkibOnk,

warum läuft deine Delphi-Schleife nur bis Length(..)-1?

[CReber]

mein fehler aber trotzdem funzt es nicht

[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;

......

[neolithos]

Delphi-Quellcode:

for i := 0 to Length(CalcString) - 1 do
    begin
      iTmp := StrToInt(CalcString[i]);
      if iTmp * i = 0 Then
         Quersum := Quersum + 4
      else
         Quersum = Quersum + (iTmp * I) div 2;
    end;

Offen und beten wir mal das es stimmt.

[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