WRITELINETOTXTFILE — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «WRITELINETOTXTFILE - это программа из справочника R266 Запись строки в текстовый файл WRITELINETOTXT…») |
Hisava (обсуждение | вклад) м (→Текст) |
||
| Строка 16: | Строка 16: | ||
try | try | ||
| − | log_file := AssignFile( path + name ) | + | log_file := [[AssignFile]]( path + name ) |
| − | if Empty( log_file ) | + | if [[Empty]]( log_file ) |
return | return | ||
endif | endif | ||
| − | TextReset( log_file ) | + | [[TextReset]]( log_file ) |
| − | while !TextEof( log_file ) | + | while ![[TextEof]]( log_file ) |
| − | Aadd( aa, ReadLn( log_file ) ) | + | [[Aadd]]( aa, [[ReadLn]]( log_file ) ) |
end | end | ||
finally | finally | ||
| − | if !Empty( log_file ) | + | if ![[Empty]]( log_file ) |
| − | CloseFile( log_file ) | + | [[CloseFile]]( log_file ) |
endif | endif | ||
end | end | ||
| − | Aadd( aa, Date() + ' ' + Time() + ' ' + str_line ) | + | [[Aadd]]( aa, [[Date]]() + ' ' + [[Time]]() + ' ' + str_line ) |
| − | WriteTxtFile( aa, name, path, true ) | + | [[WriteTxtFile]]( aa, name, path, true ) |
| + | |||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
Версия 07:57, 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 )
