Delphi XE2 Сортировка Tstringlist по имени файла

Question

У меня есть серия файлов с различными путями файлов и именами файлов, все имена файлов имеют одно и то же расширение, но имена или пути каталога различны, и они установили загрузку файлов в Tstringlist, и я пытаюсь сортировать их в порядке имен файлов, даже если у них есть пути.

Вот пример строки в TStringList: -

c:\directory 1\AboutUs.lnk 
c:\directory something\AAHelp.lnk 
c:\directory anything\AAATalk.lnk 

При сортировке по имени файла часть строки, я хотел бы закончить с.

c:\directory anything\AAATalk.lnk 
c:\directory something\AAHelp.lnk 
c:\directory 1\AboutUs.lnk 

Другими словами, я хотел бы иметь возможность сортировать строки с пути по имени файла часть строки.

Любая помощь будет оценена !.

Answer 1

Использование TStringList.CustomSort():

function Compare(List: TStringList; Index1, Index2: Integer): Integer; 
begin 
    Result := CompareStr(
    LowerCase(ExtractFileName(List[Index1])), 
    LowerCase(ExtractFileName(List[Index2])) 
); 
end; 

// Then, just call: 
YourStrList.CustomSort(Compare);