[GrabbeR]

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

Код:

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

[cotseec]

Как добавить строку в txt файл

[YVitaliy]

Вообще-то RichEdit используется для записи в .RTF файл. Для *.txt достаточно просто Memo или TextFile.

[GrabbeR]

Сообщение от YVitaliy

Вообще-то RichEdit используется для записи в .RTF файл. Для *.txt достаточно просто Memo или TextFile.

Используются отдельные цветные строки...
Так и не понял.

[GrabbeR]

Нашел ошибку, спасибо!

Код:

var
  f: TextFile;
  i: Integer;
begin
  AssignFile(f, 'Log.txt');
  if FileExists('Log.txt') 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;