16.15.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.
В примере использовались: GetComputerName