Umwandlung String in Zahl

[Matze]

Ord() -> Chr()

[tigerman33]

Zitat:

Zitat von Phistev

Statt array[1..26] würde ich array['a'..'z'] verwenden, dass macht das ord überflüssig

Zitat:

Zitat von Matze

Nur möchte er ja nicht

1 = A
2 = B :gruebel:

So meinte er das denke ich auch nicht, aber aus

Delphi-Quellcode:

Return := Return + IntToStr(myArray[Ord(Input[i]) - 32 - 64]);

würde dann das schönere

Delphi-Quellcode:

Return := Return + IntToStr(myArray[Input[i]]);

// edit:
Vorher müsste man natürlich noch in Kleinbuchstaben umwandeln, ich glaube die Funktion heißt LowerCase, aber bin mir da jetzt nicht ganz sicher.

[huefte]

Das bin ich wieder!
Wär ja mal schön, wenn ich auch mal was alleine könnte :-(
Ich bekomm das Umkehren nicht hin :-(

[huefte]

Hallo

Also ich hab jetzt die ganze zeit versucht was zu basteln, aber ich bekomm die Umkehrfuntion nicht hin! :-( kann mir bitte jemand helfen???????????

[Phistev]

Prinzip:
Setlength(Result, length(eingang) shr 1);
while Length(eingang) > 0 do begin
Vergleiche die ersten beiden Zeichen mit deiner Tabelle
Füge das passende Zeichen in den Ergebnis-String ein
Lösche die beiden ersten Zeichen
end;

[huefte]

Gott sei Dank! Ich hab jetzt endlich einen Weg gefunden!
Leider ist da noch 1(!) kleines Problem:

Ich hab ne Schleife die so aussieht

Delphi-Quellcode:

for i:= 1 to length(z) do

Die Schleife soll nun aber nicht bis length(z) laufen, sondern bis zur Hälfte von length(z), also:

Delphi-Quellcode:

for i:= 1 to length(z)/2 do

Leide rgeht das so nicht! Kann mir jemand helfen?

[dahead]

warum nur bis zur hälfte?

du könntest ein "div" statt dem "/" verwenden.

[kleiner Unwissender]

oder vielleicht ein round(length(z)/2)?

[huefte]

Naja, ich habs nun auch so gelöst und so lang es läuft, solls eigentlich egal sein!
Also nochmals danke, das Problem wurde gelöst!

Gruß huefte