Text in bestimmte Zahlen umwandeln

[citybreaker]

Ok, einer geht noch.
Jetzt möchte ich ein Wort umwandeln wie z.B. test

Label1.Text := IntToStr(getNR(Edit1.Text));

geht das nicht.

[glkgereon]

hab ich doch oben gesagt
strtoint!!!!

[Evian]

Zitat von glkbkk:

hab ich doch oben gesagt
strtoint!!!!

Und was soll er damitt in dem Fall anfangen?!

---

@citybreaker:

mh ... Du solltest Dir vielleicht noch mal ein paar grundlegene Tutorials ansehen
-> Also Du könntest es so machen.

Code:

VAR
i : INTEGER;
BEGIN
  FOR i := 1 TO length(Edit1.text) DO
  BEGIN
    LABEL1.Caption := LABEL1.Caption + IntToStr(getNR(Edit1.Text[i])); 
  END;
END;

Und zwar weil die Funktion getNR nur den Wert für ein Zeichen zurück gibt... Edit1.text beinhaltet aber eine Zeichenkette(String), Du musst also jedes Zichen einzelnen in einer Schleife(in dem Fall "for to Do") umwandeln!

gruss


Evian

[citybreaker]

Klappt nicht wirklich.

[Evian]

was ist denn der Fehler?! Poste mal den gesammten Code!!!!

[Kinimod8]

Möchtest du eine Zahlenfolge wieder in einen Text umwandeln oder was? Ich verstehe dein Problem nicht.

[citybreaker]

Hab es mal in den Anhang gehangen.

Zitat:

Möchtest du eine Zahlenfolge wieder in einen Text umwandeln oder was? Ich verstehe dein Problem nicht.

Nein, ich möchte einen Text(ein Wort) aus einem TEdit in Zahlen umwandeln.

[Matze]

So, wie du's hast, geht's einwandfrei!

Du musst nur ein "=" durch ein ":=" ersetzen bei der for-Schleife.


Denke daran, dass so nur die Großbuchstaben A-F umgewandelt werden.

Soll es mit allen gehen, dann verwende uppercase oder lowercase.

[Evian]

Jup war mein fehler in der "for to do" schleife -> muss natürlich "for i:=1 to ..." sein.
Welchen Zweck soll Dein Programm später haben?! Weil ich weiß nicht was man mit so einem Programm machen könnte?!

*neugier*

[citybreaker]

Zitat von Matze:

So, wie du's hast, geht's einwandfrei!

Du musst nur ein "=" durch ein ":=" ersetzen bei der for-Schleife.


Denke daran, dass so nur die Großbuchstaben A-F umgewandelt werden.

Soll es mit allen gehen, dann verwende uppercase oder lowercase.

*froi* Es geht.
Vielen, vielen dank!