TStringList сохранить в конец файла, как?

[Человек_Борща]

Есть ещё Memory Mapped Files, архиполезные API, если размеры файлов зашкаливают.

[evg_m]

FileOpen
FileSeek
FileWrite
FileClose

[FaTaL]

Написал такую процедурку, но не могу с утра понять, почему файл перезаписывается, а не добавляется строчка?

procedure WriteStrFileLn (s, FileName : WideString);
var
  f : TFileStream;
  str : WideString;
begin
  str := s + #13 + #10;
  f := TFileStream.Create(FileName, fmOpenReadWrite or fmCreate);
  f.Seek(0, soFromEnd);
  f.Write(pointer(str)^, Length (str) * 2);
  f.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  WriteStrFileLn ('Проверка', ExtractFilePath(ParamStr(0))+'test.txt');
end;

WideString потому что делал в Delphi 7.

[Serge_Bliznykov]

f := TFileStream.Create(FileName, fmOpenReadWrite or fmCreate);

if FileExists(FileName) then begin
  f := TFileStream.Create(FileName, fmOpenReadWrite);
  f.Seek(0, soFromEnd);
end
else 
  f := TFileStream.Create(FileName, fmCreate);
f.Write(s[1], Length (s)*sizeOf(s[1]));
f.Free;

учтите, что в s должен быть в конце перевод строки (если вам нужно, чтобы каждая запись s была на отдельной строке, конечно!)

[FaTaL]

Спасибо. Помогло. Но вроде раньше работало или создавать или дописывать. Хотя может это в новых версиях Delphi, а пример писал то на семёрке.

[Vapaamies]

  with MyFileStream do
    Position := Size;
  MyStringList.SaveToStream(MyFileStream);