Hi
Ich möchte gerne Buchstaben aus einem String in Zeichen umsetzen.
Hab das mal so versucht:
Delphi-Quellcode:
Edit2.Text:=StringReplace(Edit1.Text,'A','5',[rfReplaceAll, rfIgnoreCase]);
Edit2.Text:=StringReplace(Edit1.Text,'1','V',[rfReplaceAll, rfIgnoreCase]);
Edit2.Text:=StringReplace(Edit1.Text,'2','$',[rfReplaceAll, rfIgnoreCase]);
...
Aber das funtioniert nur, wenn es nur eine Zeile hat, also:
Edit2.Text:=StringReplace(Edit1.Text,'A','5',[rfReplaceAll, rfIgnoreCase]);
Wie bring ich es fertig, damit sich alle gewünschten Zeichen ersetzen lassen?
Gruss Blumi