Сохранить сообщение в текстовый файл лога.
Синтаксис
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.
Результат работы скрипта
