Текущая версия на 16:23, 29 марта 2019

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

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

WRITELINETOTXTFILE( path, name, str_line )

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

name - имя файла

str_line - строка

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

@@ Строка 8: / Строка 8: @@
 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 )
 = Смотрите также =
 [[Полезные функции]]
+[[WRITETXTFILE]]
 [[Функции Delphi]]