Zitat von
shareholder:
danke, funzt aber leider nicht
hab es nun so geschrieben
Delphi-Quellcode:
// Quelltext fuer Windows-Anzeige formatieren
procedure TForm1.Format1310;
var i: integer;
begin
for i:=0 to Memo1.Lines.Count-1 do
StringReplace(Memo1.Lines[i], #10, #13#10, [rfReplaceAll]);
end;
funktioniert aber nicht !
kleiner Schönheitsfehler
memo1.lines[i] := StringReplace(Memo1.Lines[i], #10, #13#10, [rfReplaceAll]);
oder mit einem mal:
oder memo1.lines.text := StringReplace(Memo1.Lines.text, #10, #13#10, [rfReplaceAll]);
oder Du holst Dir
Jedi.
deren strReplace wird so aufgerufen, wie Du es hast, ist aber schneller.