Vokal ersetzen

[Bummi]

Delphi-Quellcode:

var
 rep:String;
begin
 rep := 'ö';
 Listbox1.Items[0] :=
         StringReplace(
         StringReplace(Listbox1.Items[0], AnsiLowerCase(rep) ,AnsiLowerCase(Edit1.Text),[rfReplaceAll])
         , AnsiUpperCase(rep) ,AnsiUpperCase(Edit1.Text),[rfReplaceAll])
end;