Версия 07:56, 5 мая 2017

WRITELINETOTXTFILE - это программа из справочника R266

Запись строки в текстовый файл

WRITELINETOTXTFILE( path, name, str_line )

path - путь к файлу

name - имя файла

str_line - строка

Текст

parameters path, name, str_line

local aa, log_file

aa := {}

try
  log_file := AssignFile( path + name )
  if Empty( log_file )
    return
  endif
  TextReset( log_file )
  while !TextEof( log_file )
    Aadd( aa, ReadLn( log_file ) )
  end
finally
  if !Empty( log_file )
    CloseFile( log_file )
  endif
end

Aadd( aa, Date() + ' ' + Time() + ' ' + str_line )

WriteTxtFile( aa, name, path, true )

Смотрите также

Полезные функции

Функции Delphi