|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.628 Beiträge
Delphi 12 Athens
|
Re: zahl durch ein Zeichen ersetzen ?
28. Mai 2008, 20:07
Delphi-Quellcode:
if (l1 in ['0'..'9']) then
zeichen := Chr(Ord(l1) + 49);
Nun denk mal drüber nach, was ich hier mache.
[edit] Was ich ja noch gar nicht erwähnt hatte: Lösch mal den Text aus Edit1 und wundere Dich  [/edit]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|