Delphi 按文件名排序Tstringlist

按文件名排序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 

换句话说，我希望能够通过字符串的文件名部分对字符串进行排序。

使用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);