Delphi Tstringlist Поиск

Delphi TStringList - это один из наиболее часто используемых классов в Delphi и позволяет легко управлять списками строк. Для выполнения поиска в TStringList можно использовать различные методы:1. Использование метода IndexOf: он возвращает индекс строки, переданной в качестве аргумента. Если строка не найдена, возвращается -1.

var
  List: TStringList;
  Index: Integer;
begin
  List := TStringList.Create;
  try
    List.Add('Foo');
    List.Add('Bar');
    List.Add('Baz');
    Index := List.IndexOf('Bar');
    if Index >= 0 then
      ShowMessage('Index of "Bar": ' + IntToStr(Index))
    else
      ShowMessage('"Bar" not found');
  finally
    List.Free;
  end;
end;

2. Использование метода Find: он возвращает индекс строки, содержащей заданный текст, начиная с указанной позиции. Если строка не найдена, возвращается -1.

var
  List: TStringList;
  Index: Integer;
begin
  List := TStringList.Create;
  try
    List.Add('FooBar');
    List.Add('BarBaz');
    List.Add('BazFoo');
    Index := List.Find('Bar', 0, False);
    if Index >= 0 then
      ShowMessage('Index of "Bar": ' + IntToStr(Index))
    else
      ShowMessage('"Bar" not found');
  finally
    List.Free;
  end;
end;

3. Использование метода IndexOfObject: он возвращает индекс объекта, переданного в качестве аргумента. Если объект не найден, возвращается -1.

var
  List: TStringList;
  Obj: TObject;
  Index: Integer;
begin
  List := TStringList.Create;
  try
    Obj := TObject.Create;
    List.AddObject('Foo', Obj);
    List.AddObject('Bar', nil);
    List.AddObject('Baz', TObject.Create);
    Index := List.IndexOfObject(Obj);
    if Index >= 0 then
      ShowMessage('Index of object: ' + IntToStr(Index))
    else
      ShowMessage('Object not found');
  finally
    List.Free;
  end;
end;

4. Использование метода CustomSort: он предоставляет возможность выполнять собственную сортировку элементов. Этот метод принимает функцию сравнения, которая определяет порядок сортировки.

var
  List: TStringList;
function CompareStrings(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result := -CompareText(List[Index1], List[Index2]);
end;

begin
  List := TStringList.Create;
  try
    List.Add('ZZZ');
    List.Add('BBB');
    List.Add('AAA');
    List.CustomSort(CompareStrings);
    ShowMessage(List.Text);
  finally
    List.Free;
  end;
end;