TMemo: Text mit festem Zeilenumbruch speichern

[SirThornberry]

geht auch einfacher (ungetestet):

Delphi-Quellcode:

var LStr, LStr2: String;
    LPos: Integer;
    LStream: TStream;
begin
  LStream := TFileStream.Create(YourFilename, fmCreate);
  LStr := StringReplace(Memo1.Text, #13#10, '', [rfReplaceAll]);
  LPos := 1;
  while (LPos <= length(LStr)) do
  begin
    LStr2 := copy(LStr, LPos, 70) + #13#10;
    LStream.Write(LStr2[1], length(LStr2));
    inc(LPos, 70);
  end;
  LStream.Free;