Umwandlung String in Zahl

[Matze]

Ord() -> Chr()

[tigerman33]

Zitat von Phistev:

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

Zitat von Matze:

Nur möchte er ja nicht

1 = A
2 = B

So meinte er das denke ich auch nicht, aber aus
Return := Return + IntToStr(myArray[Ord(Input[i]) - 32 - 64]); würde dann das schönere
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

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:

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