function AddLineToTxtFile

function AddLineToTxtFile

Previous pageReturn to chapter overviewNext page

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.