Сохранить сообщение в текстовый файл лога.

 

Синтаксис

function Protocol(sMsg, sFileName: string; bDateTimeStamp: boolean; iEncodingType: integer): int64;

 

Параметры и возвращаемые значения

Параметр

Тип

Значение

sMsg

string

текст сообщения;

sFileName

string

название и путь к файлу лога;

bDateTimeStamp

boolean

нужно ли добавлять штамп даты и времени к сообщению;

iEncodingType

integer

тип кодировки файла, число.

 

Результат функции

>= 0

ошибок нет, итоговый размер файла протокола в байтах;

-1

ошибка записи в файл, ошибка создания нового файла либо указан неверный путь к файлу.

 

Пример

var
  i, iVal, iResult: int64;
begin
  iVal    := 12; // будем вычислять факториал числа 12
  iResult := 1;
  
    for i := 2 to iVal do begin // цикл вычисления факториала
      iResult := iResult * i;
      Protocol(inttostr(i) + ' - ' + inttostr(iResult), 'c:\temp\factorial.log', true, 0);
    end;  
end.

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

MyChat Script Engine, результата работы функции Protocol, вычисление факториала

 

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

IntToStr