MyChat Scripts: функция TStringList.Append, добавить строку в конец списка

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"): Скрипт выполнен успешно.
 

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

CRLF

IntToStr

mLogScript

TStringList.Create

TStringList.Free

TStringList.Text