Buchstaben zu Zeichen

[Delphi-Freak]

Achso, jetzt weiß ich, was du mit Zeilen meinst - im Quellcode, nicht im Edit
also so gings dann auch:

Code:

Edit2.Text:=StringReplace(Edit1.Text,'A','5',[rfReplaceAll, rfIgnoreCase]); 
Edit2.Text:=StringReplace(Edit[u][b]2[/b][/u].Text,'1','V',[rfReplaceAll, rfIgnoreCase]); 
Edit2.Text:=StringReplace(Edit[u][b]2[/b][/u].Text,'2','$',[rfReplaceAll, rfIgnoreCase]);
//...

LG, Gerhard

Edit: im Code-Tag funktionieren die Formatierungen nicht