MyChat Scripts: функция TStringList.Delete, удалить строку из списка по номеру
"Для разработчиков", "Серверные скрипты", "Описание функций", "Строки", "TStringList", "Методы", "Delete".
Удалить строку из списка по её индексу. Индексация начинается с нуля. Количество строк можно узнать из свойства Count.
Синтаксис
procedure TStringList.Delete(x: integer);
Параметры и возвращаемые значения
|
Параметр |
Тип |
Значение |
|
x |
integer |
индекс строки, которую нужно удалить из списка. |
Пример
var
SL: TStringList;
i: integer;
begin
SL := TStringList.Create;
for i := 1 to 10 do
SL.Append(IntToStr(Random(100) + 50));
mLogScript(SL.CommaText, 'Before');
for i := SL.Count - 1 downto 0 do
if length(SL[i]) > 2 then SL.Delete(i);
mLogScript(SL.CommaText, 'After');
SL.Free;
end.
Результат работы скрипта
[17:23:47] (Log "DeleteMethod"): [Before] 87,117,115,118,140,67,106,61,71,124
[17:23:47] (Log "DeleteMethod"): [After] 87,67,61,71
[17:23:47] (Run "DeleteMethod"): Время выполнения скрипта: 5 мс
[17:23:47] (Run "DeleteMethod"): Скрипт выполнен успешно.