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

"Для разработчиков", "Серверные скрипты", "Описание функций", "Строки", "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.