Delphi XE2 Sort Tstringlist by file name

Question

I have a series of files with different file paths and file names, all file names have the same extension, but the names or directory paths are all different, and they set the file upload to Tstringlist, and I try to sort them in the order of the file names, even if There are ways.

Here is an example of lines in a Tstringlist: -

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

When sorting by file name, the part of the line that I would like to end with.

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

In other words, I would like to be able to sort the lines with the path part of the file name in the line.

Any help would be appreciated!

Answer 1

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