डेल्फी में निर्देशिका पथ हेरफेर?

Question

मेरे पास किसी दिए गए फ़ोल्डर का पूरा पथ नाम है उदा।

c:\foo\bar 

अब मैं ग के अंदर एक फ़ाइल को संदर्भित करना चाहते हैं: \ foo नामित baz.txt,

c:\foo\bar\..\baz.txt 

मैं वर्तमान में .. पथ ऑपरेटर का उपयोग कर रहा एक स्तर नीचे जाने के लिए और फ़ाइल प्राप्त करने के लिए जिसकी मुझे आवश्यकता है।

क्या कोई ऐसा फ़ंक्शन है जो पथ कुशलताएं कर सकता है, उदाहरण के लिए UpOneLevel (str) -> str? मुझे पता है कि मैं स्ट्रिंग को विभाजित करके और अंतिम टोकन को हटाकर एक लिख सकता हूं, लेकिन मैं इसके बजाय एक अंतर्निहित/लाइब्रेरी फ़ंक्शन होगा, इसलिए यदि उदाहरण के लिए मैं बाद में परेशानी में नहीं आता बैकस्लाश से बच निकला

Answer 1

ExpandFileName समारोह का उपयोग करें:

var 
    S: string; 
begin 
    S := 'c:\foo\bar\..'; 
    S := ExpandFileName(S); 
    ShowMessage(S); 
end; 

ऊपर के उदाहरण से संदेश c:\foo पथ दिखाएंगी।

Answer 2

इस उत्तर के लिए मान्य है डेल्फी XE +

उपयोग IOutils इकाई है, जो, विधि GetParent है इस ::

uses IOUtils; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    s: string; 
begin 
    s := 'c:\foo\bar'; 
    ShowMessage(TDirectory.GetParent(s)); 
end; 

पुराने संस्करणों

में तरह की TDirectory वर्ग

अन्य उत्तरों को देखो।

Answer 3

ExtractFilePath() और ExtractFileDir() पर देखें। ये केवल सभी डेल्फी संस्करणों में उपलब्ध हैं, विशेष रूप से जिनके पास टीडी डायरेक्टरी, आईओटीटी, आदि नहीं हैं

और इससे पहले कि कोई इसे कहता है, ये काम ठीक है कि पथ फ़ाइल नाम के साथ समाप्त होता है या नहीं। ForceDirectories() उदाहरण के लिए, मूल फ़ोल्डर्स के पदानुक्रम के माध्यम से पीछे की ओर चलने के लिए आंतरिक रूप से उनका उपयोग करता है।

Answer 4

आप इकाई delphi-oop लाइब्रेरी से रिकॉर्ड देख सकते हैं। यह इकाई डेल्फी 2007 का समर्थन नहीं करती है लेकिन TPathBuilder कार्यान्वयन इस डेल्फी संस्करण के साथ संगत है। उदाहरण उपयोग:

var 
    LFullPath: string; 
begin 
    LFullPath := TPathBuilder.InitCustomPath('c:\foo\bar').GoUpFolder.AddFile('baz.txt').ToString; 
    //LFullPath = c:\foo\baz.txt