Umlaute ersetzen?

[smart]

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;

[mquadrat]

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 !)

[kalmi01]

Hi,

so aus der Hüfte geschossen:

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;

edit: Hi mquadrat,
2 ??? 1 Gedanke :wink:
und das auch noch zeitgleich :thumb:

[Klaus01]

was mir so auffällt ist das Du immer von Edit10.text die Umlaute austauscht.
Letzendlich hast Du zum Schluß nur die ä ausgetauscht.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
Var 
S:String; 
begin 
S := StringReplace(Edit10.Text,'ü','ue',[rfReplaceAll]); 
S := StringReplace(s,'ö','oe',[rfReplaceAll]); 
S := StringReplace(s,'ä','ae',[rfReplaceAll]); 
Edit10.Text := S; 
end;

Grüße
Klaus


[edit] ups zum 3. [/edit]

[mquadrat]

*g* Schön, dass ich mit meiner Meinung nicht allein bin

[smart]

Vielen Dank an Euch Alle! Ich hatte übersehen, dass ich immer von Edit10.Text ausgegangen bin ;-)
Danke nochmal.