MyChat Scripts: функция TStringList.Insert, вставить строку в список
"Для разработчиков", "Серверные скрипты", "Описание функций", "Строки", "TStringList", "Методы", "Insert".
Вставить строку в список по указанному индексу. Индексация начинается с нуля.
Синтаксис
procedure TStringList.Insert(iIdx: integer; s: string);
Параметры и возвращаемые значения
|
Параметр |
Тип |
Значение |
|
iIdx |
integer |
позиция для вставки строки; |
|
s |
string |
текстовая строка для вставки. |
Если индекс был указан неправильно, то ничего не произойдёт, но будет возбуждено исключение, поэтому рекомендуем пользоваться конструкцией "try...except".
Пример
var
SL: TStringList;
i: integer;
begin
SL := TStringList.Create;
for i := 1 to 10 do
SL.Add(IntToStr(i));
mLogScript(SL.CommaText, 'Original');
for i := 9 downto 1 do
SL.Insert(i, '---');
mLogScript(SL.CommaText, 'After');
SL.Free;
end.
Результат работы скрипта
[15:02:21] (Log "InsertMethod"): [Original] 1,2,3,4,5,6,7,8,9,10
[15:02:21] (Log "InsertMethod"): [After] 1,---,2,---,3,---,4,---,5,---,6,---,7,---,8,---,9,---,10
[15:02:21] (Run "InsertMethod"): Время выполнения скрипта: 5 мс
[15:02:21] (Run "InsertMethod"): Скрипт выполнен успешно.