Автор: Илья Илларионов

Свойство Sorted и метод IndexOf. В VCL Help написано, что TStringlist.IndexOf возвращает ссылку на ПЕРВЫЙ объект списка, имеющий заданное имя. В случае, если Sorted == False, это именно так, потому что индекс ищется путем прямого сканирования имен. В случае же, если Sorted == True, и объектов с одинаковым именем в списке НЕСКОЛЬКО, IndexOf возвращает вхождение ПОСЛЕДНЕГО объекта, т.к. поиск осуществляется по отсортированному массиву, а именно после последнего объекта должен добавлять метод Add при добавлении в сортированный массив. Логично, но полное противоречие с Help.

Способ решения пока такой: после получения индекса пытаться сканировать вверх до тех пор, пока имя не перестанет совпадать с требуемым, или до 0. При сканировании следует обращать внимание на свойство CaseSensitive класса.

КОММЕНТАРИЙ

Анализ кода TStringList.IndexOf (D5) показывает, что в случае отсутствия сортировки работает линейный метод TStrings.IndexOf, иначе - метод Find, который и находит (согласно Help) последний из одинаковых элементов.

Вывод: недоработана статья из Help по TStringList.IndexOf, где эта особенность не описана.