AVZ 5. Руководство пользователя
×
Меню
Индекс

16.13.5. function AddLineToTxtFile

function AddLineToTxtFile(AFileName, S : string) : boolean;
 
Добавляет строку S к текстовому файлу с именем AFileName. Файл создается в случае его отсутствия и открывается в случае наличия, закрытие файла производится сразу после добавления строки. Данная функция удобна для формирования сводных протоколов и ведения единого протокола с данными для администратора.
В имени файла допустимо указывать макросы, подробнее см. в разделе "макросы, допустимые в именах файлов"
Функция возвращает true в случае успешного добавления строки к файлу и false в случае ошибки.
 
Пример:
 
1. Простейший пример:
 
begin
  AddLineToTxtFile('c:\log.txt', 'Сообщение');
end.
 
 
2. Пример генерации протокола, строки которого содержат дату, время и имя компьютера:
 
begin
  AddLineToTxtFile('c:\log.txt',
                DateTimeToStr(Now)+' '+GetComputerName+' : '+
                'Сообщение');
end.