Добавить сообщение в конец текстового файла.

 

Синтаксис

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.

Результат работы скрипта

Результат работы функции AddLineToFile скриптового языка MyChat

 

Ещё посмотреть

DeleteFile

IntToStr