Text nach Umlauten parsen, knifflig?

[Alter Mann]

Hi Gambit,

geht es so:

Delphi-Quellcode:

procedure ReplaceChar(var InOut : String; const UE : Char; const AE : String);
var
  I : Integer;
begin
  while POS(UE, InOut) <> 0 do
  begin
    I := POS(UE, InOut);
    Delete(InOut, I, 1);
    Insert(AE, InOut, I);
  end;
end;

Frohe Ostern