WRITELINETOTXTFILE — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
(Новая страница: «WRITELINETOTXTFILE - это программа из справочника R266 Запись строки в текстовый файл WRITELINETOTXT…»)
(нет различий)

Версия 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