Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
1. Mär 2006
Jupp, wäre es ...
... und außerdem dürfen natürtürlich auch die Zeilenumbrüche nicht mit gelöscht werden :wall:
Also dürfte der 3. Code für dich passend sein ^_^
procedure TForm1.trimmen(M: TMemo);
var s : string;
i : integer;
begin
s := AnsiUpperCase(M.Text);
Forum: Sonstige Fragen zu Delphi
Delphi
by himitsu,
28. Feb 2006
Wenn schon, dann so (Damit das Memo den String nicht ständig neu bearbeiten muß):
Var S: String;
S := StringReplace(Memo1.Text,'ä','ae', );
S := StringReplace(S,'ö','oe', );
S := StringReplace(S,'ü','ue', );
Memo1.Text := StringReplace(S,'ß','ss', );
Aber mit Groß-/Kleinschreibung macht's sich bestimmt auch nicht schlecht ^_^