Delphi XE2 Sắp xếp Tstringlist theo Tên tệp

Question

Tôi có một loạt tệp có đường dẫn tệp và tên tệp khác nhau, tất cả tên tệp có cùng đuôi nhưng tên thư mục hoặc đường dẫn khác nhau và đã đặt về tải tệp vào Tstringlist và tôi đang cố gắng sắp xếp chúng thành thứ tự tên tập tin mặc dù chúng cũng có đường dẫn.

Dưới đây là một ví dụ về chuỗi trong TStringList: -

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

Khi sắp xếp theo phần tên tập tin của chuỗi Tôi muốn kết thúc với.

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

Nói cách khác, tôi muốn có thể sắp xếp các chuỗi có đường dẫn theo phần tên tệp của chuỗi.

Mọi trợ giúp sẽ được đánh giá cao !.

Answer 1

Sử dụng 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);