Forum: Sonstige Fragen zu Delphi
Delphi
by 1ceman,
28. Feb 2006
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:
procedure TForm1.trimmen(M:TMemo);
var y,i : integer;
s : string;
begin
for y := 0 to M.Lines.count-1 do
begin
s :=...
Forum: Sonstige Fragen zu Delphi
Delphi
by 1ceman,
28. Feb 2006
Ich hab ne kleine funktion für ein projekt geschrieben, die Sonderzeichen und Umlaute aus einem Memo-Feld ersetzt:
function TForm1.trimmen(M:TMemo):TMemo;
var y,x : integer;
code : string;
begin
for y := 0 to M.Lines.count-1
do begin
code := '';
for x:= 1 to length(M.Lines)