RichEdit - дозапись в файл

[GrabbeR]

В файл перезаписывает данные, как сделать, чтобы дозаписывал?

var
F: TextFile;
begin
  try
    RichEdit1.Lines.SaveToFile('Log.txt');
    AssignFile(F,'Log.txt');
    Append(f);
    CloseFile(f);
    except
   //Button1Click(Sender);
  end;
end;

[phomm]

Потоки (TStream) изучите.
Примерно так:

var
Fs: TFileStream;
begin
  fs := TfileStream.Create('Log.txt'); // создаём поток и грузим файл
  try
    Fs.Seek(0, soFromEnd);  // промотаем в конец файла  
    RichEdit1.Lines.SaveToStream(fs); // записываем из ричэдита в поток
  finally
    fs.Free; // прибиваем поток, при этом файл сохранится на диск
end;

[GrabbeR]

спасибо, нашел другой метод!

[Аватар]

спасибо, нашел другой метод!

Мучает любопытство. Другой какой? То что phomm предложил наиболее прозрачно и эффективно. Да и код короче уже не сделаешь. ИМХО

[GrabbeR]

var
  f: TextFile;
  i: Integer;
begin
  AssignFile(f, 'Log');
  if FileExists('Log') then
    Append(f)
  else
    Rewrite(f);
  try
    for i := 0 to RichEdit1.Lines.Count - 1 do
      Writeln(f, RichEdit1.Lines[i]);
  finally
    CloseFile(f);
  end;
  end;