Как удалить элемент списка по его имени?

[bilibian]

Привет!

procedure TForm1.btn1Click(Sender: TObject);
  var
    List : TStringList;
    I : Integer;
begin
  List := TStringList.Create;
  List.Clear;
  List.Add('abc=123');
  List.Add('ddd=456');

  for I := List.Count-1 downto 0 do
    if List.Names[I] = 'abc' then List.Delete(I);

  List.Free;
end;

Можно ли удалить элемент списка по его имени, а не по id? В данном случае имя это "abc".


Поясню, для чего мне это нужно:

Список может быть очень большим, и считаю, что не стоит каждый раз крутить его в цикле, чтобы удалить один элемент по его id. Это может быть очень долго.

Возможно есть вариант, где вместо id можно указать имя.

Примерно так:

for I := 0 to List.Count-1 do
    if List.Names[I] = 'abc' then List.Delete('abc');

Поможете?

[tsar_]

Список сортированный?

[bilibian]

Сообщение от tsar_

Список сортированный?

Нет. Сортировка, в моем случае, особой роли не играет.

[tsar_]

Если правильно помню, у TStringList есть метод IndexOfName

[bilibian]

Сообщение от tsar_

Если правильно помню, у TStringList есть метод IndexOfName

То что нужно, спасибо!

[tsar_]

Нету под рукой компилятора, так что посмотрите реализацию IndexOfName в delphi, скорее всего он тоже тупо перебирает элементы списка и сравнивает Name.
Это я к тому, что проблему скорости поиска в несортированном списке этот метод не решит.

[Аватар]

То что нужно

А IndexOfName думаешь как ищет? Также тривиально - в цикле перебором

[SQLPowerUser]

В зависимости от ситуации, можно использовать дженерики.
Или вот это

[Аватар]

И StringList отсортировать будет искать не менее быстро

[Smitt&Wesson]

Если ключ уникален, можно применить конструкцию "ключ=значение". Немножко быстрее ищет чем простым сравнением фрагмента строки.