MyChat Scripts: функция TStringList.Delete, удалить строку из списка по номеру

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

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

IntToStr

mLogScript

Random

TStringList.Create

TStringList.Free

TStringList.CommaText