MyChat Scripts: функция TStringList.Append, добавить строку в конец списка
"Для разработчиков", "Серверные скрипты", "Описание функций", "Строки", "TStringList", "Методы", "Append".
Добавить строку в конец списка.
Синтаксис
procedure TStringList.Append(s: string);
Параметры и возвращаемые значения
|
Параметр |
Тип |
Значение |
|
s |
string |
строка для добавления в список. |
Пример
var
SL: TStringList;
i, x: integer;
begin
SL := TStringList.Create;
x := 0;
for i := 1 to 10 do begin
x := x + i;
SL.Append(IntToStr(i) + ' - ' + IntToStr(x));
end;
mLogScript(CRLF + SL.Text, 'unsorted');
SL.Free;
end.
Результат работы скрипта
[10:58:48] (Log "AppendMethod"): [unsorted]
1 - 1
2 - 3
3 - 6
4 - 10
5 - 15
6 - 21
7 - 28
8 - 36
9 - 45
10 - 55
[10:58:48] (Run "AppendMethod"): Время выполнения скрипта: 5 мс
[10:58:48] (Run "AppendMethod"): Скрипт выполнен успешно.