Delphi XE2 Sortieren Tztringliste nach Dateiname

Question

Ich habe eine Reihe von Dateien, die verschiedene Dateipfade und Dateinamen haben, alle Dateinamen haben die gleiche Erweiterung, aber die Verzeichnisnamen oder Pfade sind alle unterschiedlich und haben sich auf das Laden der Dateien in a eingestellt Tztringlist und ich versuche sie in die Reihenfolge der Dateinamen zu sortieren, obwohl sie auch die Pfade haben.

Hier ist ein Beispiel für die Saiten in dem TStringList: -

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

Wenn durch den Dateinamen Teil der Zeichenfolge sortiert, mit dem ich am Ende möchte.

Mit anderen Worten möchte ich in der Lage sein, die Zeichenfolgen mit Pfad durch den Dateinamen Teil der Zeichenfolge zu sortieren.

Jede Hilfe wäre willkommen !.

Answer 1

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