Hi,
das liegt daran, das du Edit2.text immer wieder mit edit1.text überschreibst, edit1.text sich aber nicht ändert.
Das wäre eventuell auch noch eine Alternative:
Delphi-Quellcode:
...
...
Private
function ReplaceString(S:String):String;
...
...
...
function TForm1.ReplaceString(S:String):String;
begin
S:=StringReplace(S,'A','5',[rfReplaceAll, rfIgnoreCase]);
S:=StringReplace(S,'1','V',[rfReplaceAll, rfIgnoreCase]);
S:=StringReplace(S,'2','$',[rfReplaceAll, rfIgnoreCase]);
Result:=s:
end;
// Aufruf:
Procedure TForm1.Button1Click(Sender:TObject);
begin
Edit2.text:=ReplaceString(Edit1.text);
end;
// Edit: hatte versehentlich procedure anstatt function geschrieben, dummer Fehler wenn man gleich im Forum und nicht in der
IDE tippt ...