"Для разработчиков", "Серверные скрипты", "Описание функций", "Строки", "TStringList", "Методы", "SaveToFile".

 

Загрузить в список текстовый файл с диска.

 

Синтаксис

procedure TStringList.SaveToFile(sFileName: string);

 

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

Параметр

Тип

Значение

sFileName

string

название текстового файла с полным путём.

 

При сохранении содержимое файла будет перезаписано новыми данными.
 

Пример

Расчёт факториала и запись данных в текстовый файл протокола с указанием времени каждой итерации до миллисекунд.

const
  LOG_FILE = 'C:\Temp\factorial.txt';
var
  SL: TStringList;
  
procedure AddString2Log(sData: string);
var
  s: string;
begin
  s := FormatDateTime('[yyyy-mm-dd hh:nn:ss:zzz]', Now) + ' ' + sData;
  SL.Append(s);
end;  
function Factorial(x: integer): int64;
var
  n: integer;
  r: int64;
begin
  r := 1;
  
    for n := 2 to x do r := r * n;
  
  result := r;
end;
var
  i: integer;
begin
  SL := TStringList.Create;
    for i := 1 to 20 do AddString2Log(IntToStr(Factorial(i)));
  SL.SaveToFile(LOG_FILE);
  SL.Free;
end.

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

Результат работы метода TStringList.SaveToFile в скрипте MyChat Server
 

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

FormatDateTime

IntToStr

Length

LowerCase

mLogScript

Now

TStringList.Append

TStringList.Create

TStringList.Free