Thema: Delphi Umlaute ersetzen?

Einzelnen Beitrag anzeigen

mquadrat

Registriert seit: 13. Feb 2004
1.113 Beiträge
 
Delphi XE2 Professional
 
#2

Re: Umlaute ersetzen?

  Alt 14. Mär 2006, 10:43
Naja, kann ja auch nicht. Du überschreibst S ja immer wieder. Deine Routine ersetzt also nur ä's

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
Var
S:String;
begin
S := Edit10.Text;
S := StringReplace(S,'ü','ue',[rfReplaceAll]);
S := StringReplace(S,'ö','oe',[rfReplaceAll]);
S := StringReplace(S,'ä','ae',[rfReplaceAll]);
Edit10.Text := S;
end;
Sollte besser funktionieren (nicht getestet !)
  Mit Zitat antworten Zitat