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