sorting - 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);