Registriert seit: 19. Dez 2004
Ort: Bochum
1.266 Beiträge
Delphi 2007 Professional
|
Umlaute ersetzen?
14. Mär 2006, 10:40
Hallo!
Ich wollte Umlaute austauschen und habe mir ein kleines Programm erstellt. Es klappt aber nicht. Warum nicht? Ich komme nicht darauf. Kann mir Einer mal helfen?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
Var
S:String;
begin
S := StringReplace(Edit10.Text,'ü','ue',[rfReplaceAll]);
S := StringReplace(Edit10.Text,'ö','oe',[rfReplaceAll]);
S := StringReplace(Edit10.Text,'ä','ae',[rfReplaceAll]);
Edit10.Text := S;
end;
Heike Kretschmann Viele Grüße aus Bochum
kaum denkt man alles ist fertig, da fängt man wieder von Vorn an.
|
|
Zitat
|