Добавить сообщение в конец текстового файла.
function AddLineToFile(sMsg, sFileName: string): integer;
Параметр |
Тип |
Значение |
---|---|---|
sMsg |
string |
текст сообщения; |
sFileName |
string |
название текстового файла и путь к нему. |
0 |
ошибок нет; |
1 |
ошибка записи в файл, ошибка создания нового файла либо указан неверный путь к файлу. |
var
i: integer;
s: string;
begin
DeleteFile('c:\temp\log.txt'); // удаляем файл результатов, если он существовал ранее
for i := 1 to 1000 do
if i mod 100 = 0 then
AddLineToFile(inttostr(i), 'c:\temp\log.txt');
end.