Добавить сообщение в конец текстового файла.
Синтаксис
function AddLineToFile(sMsg, sFileName: string; iEncodingType: integer): int64;
Параметры и возвращаемые значения
Параметр |
Тип |
Значение |
|---|---|---|
sMsg |
string |
текст сообщения; |
sFileName |
string |
название текстового файла и путь к нему; |
iEncodingType |
integer |
тип кодировки файла, число. |
Результат функции
>=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', 0);
end.Результат работы скрипта
