из Edit в блокнот

[mxroman]

Привет, такая задача чтобы из Edit записывалась информация в блокнот, но только с добавлением к уже имеющейся информацией, мне надо чтобы логи записывались...

  direct:='C:\SUMP1\bin\log.txt';
      AssignFile(connect.connect_file, direct);
      Rewrite(connect.connect_file);
      Reset(connect.connect_file);
      Append(connect.connect_file);
      Writeln(connect.connect_file, edt1.Text);
      Flush(connect.connect_file);
      CloseFile(connect.connect_file);

Вот кусок, но это с заменой, а как сделать чтобы записывалось постоянно с новой строчки

[mxroman]

  direct:='C:\SUMP1\bin\log.txt';
      AssignFile(connect.connect_file, direct);
      //Rewrite(connect.connect_file);
      Reset(connect.connect_file);
      Append(connect.connect_file);
      Writeln(connect.connect_file, edt1.Text);
      Flush(connect.connect_file);
      CloseFile(connect.connect_file);

надо было просто 3 строчку убрать т.к. указатель уст вначало)))

[Serge_Bliznykov]

и reset тоже выкиньте напрочь!

а ещё лучше (надёжней) написать так:

  direct:='C:\SUMP1\bin\log.txt';
  AssignFile(connect.connect_file, direct);
  try
    try
      if FileExists(Имя) 
         then Append(connect.connect_file)
         else Rewrite(connect.connect_file);
      Writeln(connect.connect_file, edt1.Text);
      Flush(connect.connect_file);
    except
      ShowMessage('Ошибка при записи в файл '+direct);
    end;
  finally
    CloseFile(connect.connect_file);
  end;

если файл есть - то он откроется на добавление, если нет - будет создан!


p.s. имхо, Flush() - это наследие мрачных времён, когда программа реально могла сама держать данные в буфере в оперативной памяти. сейчас этим всем занимается ядро ввода/вывода Windows, поэтому эту строчку можно выкинуть.. она никакой полезной нагрузки не несёт. имхо, конечно.