Последние записи

made in programmersforum 3

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

18th
Мар

Запись логов в файл

Posted by Chas under Delphi

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

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

  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, поэтому эту строчку можно выкинуть.. она никакой полезной нагрузки не несёт. имхо, конечно.

тема на форуме