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 !
