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