Umlaute erkennen

[Tim.exe]

Vielleicht hilft dir das:

Delphi-Quellcode:

//In Memo1 den Originaltext einladen...

function OptText(s:widestring):widestring;
begin

  s := StringReplace(s, 'Ä', 'Ae;', [rfReplaceAll]);
  s := StringReplace(s, 'ä', 'ae;', [rfReplaceAll]);

  s := StringReplace(s, 'Ö', 'Oe;', [rfReplaceAll]);
  s := StringReplace(s, 'ö', 'oe;', [rfReplaceAll]);

  s := StringReplace(s, 'Ü', 'Ue;', [rfReplaceAll]);
  s := StringReplace(s, 'ü', 'ue;', [rfReplaceAll]);

Result := s;
end;


//In Memo2 wird der geänderte Text dargestellt:
procedure TForm1.Button1Click(Sender: TObject);
begin
        memo2.Text := OptText(memo1.Text);
end;