Also erst mal vielen dank für die vielen und schnellen Antworten.
Mit dem StringReplace ist nur das Problem,das nachher die Formatierung nicht mehr stimmt, also
die Zeilenümbrüche nicht mehr da sind. deswegen habe ich das jetzt so gelöst:
Delphi-Quellcode:
procedure TForm1.trimmen(M:TMemo);
var y,i : integer;
s : string;
begin
for y := 0 to M.Lines.count-1 do
begin
s := AnsiUpperCase(M.Lines[y]);
s := StringReplace(S,'Ä','AE', [rfReplaceAll]);
s := StringReplace(S,'Ö','OE', [rfReplaceAll]);
s := StringReplace(S,'Ü','UE', [rfReplaceAll]);
s := StringReplace(S,'ß','SS', [rfReplaceAll]);
for i := 1 to Length(s) do
if not (s[i] in ['A'..'Z']) then s[i] := ' ';
M.Lines[y] := s;
end;
end;
und ob er was ersetzt hat oder nichtm das brauche ich für mein Programm nicht, also hab ich das auch mal weggelassen.