डेल्फी XE2 फ़ाइल नाम

Question

द्वारा 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 

दूसरे शब्दों में मैं स्ट्रिंग के फ़ाइल नाम से पथ के साथ स्ट्रिंग को सॉर्ट करने में सक्षम होना चाहता हूं।

किसी भी मदद की सराहना की जाएगी!

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