Also nun nochmal:
Du gibst in ein Edit-Feld etwas ein, ja? In einem Label soll das auch stehen, bloß mit Zahlen statt Buchstaben.
Elegante Lösung: Arrays.
Meine Lösung:
Quelltext
1:
| For I:=1 To Length(Edit1.Text) Do Begin ... End; |
Zwischen Begin und End kommt einfach nur noch:
Quelltext
1: 2:
| If Edit1.Text[I]='A' Then Ziffernsatz:='1' Else If Edit1.Text[I]='B' Then Ziffernsatz:=2 usw.. |
I -> Integer;
Ziffernsatz: String (Denn du mußt ja Stringaddition vornehmen, also für jeden Buchstaben -> Haus = 8/1/21/19 = 812119)
Noch Fragen? Ich kann's dir nicht programmieren, habe kein Delphi und wäre deinen Mitschülern gegenüber nicht fair.
Grüße..
Moderiert von
Tino: Code-Tags hinzugefügt.