घर
Top.Mail.Ru Yandeks.Metrika
मंच: "मुख्य";
वर्तमान संग्रह: 2002.01.08;
डाउनलोड करें: [xml.tar.bz2];

नीचे

कैसे? इसी तरह की शाखाएँ खोजें


Xtorm   (2001-12-19 10:40) [0]

फ़ाइलों और फ़ोल्डरों की पूरी सूची को डिस्क पर कैसे प्राप्त करने की अनुमति है: \
केवल घटकों की मदद के बिना ???



Bizon   (2001-12-19 10:46) [1]

FindFirst और FindNext फ़ाइलों का उपयोग करें



Dimka Maslov   (2001-12-19 10:52) [2]

प्रक्रिया FindFiles (पथ, मास्क: स्ट्रिंग; सूची: TStrings; शामिल करें: बूलीयन = सच); वर SearchRec: TSearchRec; FindResult: पूर्णांक; शुरू करना List.BeginUpdate; कोशिश पथ: = शामिल करेंट्रैकलिंगबैक (पथ); FindResult: = FindFirst (पथ + "*। *", FaAnyFile, SearchRec); कोशिश जबकि FindResult = 0 SearchRec के साथ शुरू करते हैं यदि (Attr और faDirectory <> 0) तब शुरू होता है अगर इसमें शामिल हैं, तो (नाम <> "..") और (नाम <> ""। " उसके बाद फाइंडफाइल्स (पथ + नाम, मास्क, सूची, शामिल करें); अंत और शुरू अगर माचिसमास्क (नाम, मुखौटा) तो सूची.एडी (पथ + नाम); अंत; FindResult: = FindNext (SearchRec); अंत; अंत में FindClose (SearchRec); अंत; अंत में List.EndUpdate; अंत; अंत;



cpp   (2001-12-19 10:53) [3]

यहाँ और मेरे स्रोत को अनुकूलित कर सकते हैं

प्रक्रिया ReadAllFiles (DirFrom: स्ट्रिंग);
var SearchRecOtkuda: TSearchRec;



प्रक्रिया ReadFile (FileName: string);
शुरू करना
// हम जो चाहते हैं और फ़ाइल के साथ करते हैं
अंत;

प्रक्रिया ReadDir (DirName: string);
शुरू करना
// हम जो चाहते हैं वही हम डायरेक्टरी के साथ करते हैं
if (DirName <> ""।) और (DirName <> "..") तब
शुरू करना
ReadAllFiles (DirFrom + "\" + DirName);
अंत;
अंत;

शुरू करना
यदि FindFirst (DirFrom + "\ *। *", faAnyFile, SearchRecOtkuda) = 0 तब
शुरू करना
यदि (अग्रनिर्देशिका और SearchRecOtkuda.Attr)> 0 तब
ReadDir (SearchRecOtkuda.Name)
अन्य
ReadFile (SearchRecOtkuda.Name);
जबकि FindNext (SearchRecOtkuda) = 0 करते हैं
शुरू करना
यदि (अग्रनिर्देशिका और SearchRecOtkuda.Attr)> 0 तब
ReadDir (SearchRecOtkuda.Name)
अन्य
ReadFile (SearchRecOtkuda.Name);
अंत;
अंत;
अंत;



Xtorm   (2001-12-19 11:39) [4]

धन्यवाद हर कोई, सब कुछ अब काम कर रहा है !!!!



पन्ने: 1 पूरी शाखा

मंच: "मुख्य";
वर्तमान संग्रह: 2002.01.08;
डाउनलोड करें: [xml.tar.bz2];

ऊपर









मेमोरी: 0.82 एमबी
समय: 0.035 c
4-22460
Dimich
2001-11-01 08:49
2002.01.08
लोगों की मदद !!! दशार्ण जलता है !!!


4-22497
Syrius
2001-11-07 09:13
2002.01.08
डेल्फी 6 और Win32 एपीआई


1-22157
इशारा करनेवाला
2001-12-20 13:55
2002.01.08
एक पंक्ति में दो कैरिज रिटर्न खोजें।


1-22044
Eduard
2001-12-10 10:09
2002.01.08
ढांचा


1-22165
पकड़ लेना
2001-12-20 20:18
2002.01.08
फ़ॉर्म पर एक लोगो बनाना और रखना





अफ्रीकी अल्बानियन अरबी भाषा अर्मेनियाई आज़रबाइजानी बस्क बेलारूसी बल्गेरियाई कैटलन सरलीकृत चीनी) चीनी पारंपरिक) क्रोएशियाई चेक डेनिश डच अंग्रेज़ी एस्तोनियावासी फिलिपिनो फिनिश फ्रेंच
गैलिशियन् जॉर्जियाई जर्मन यूनानी हाईटियन यहूदी हिंदी हंगरी आइसलैंड का इन्डोनेशियाई आयरिश इतालवी जापानी कोरियाई लात्वीयावासी लिथुआनियाई मेसीडोनियन मलायी मोलतिज़ नार्वेजियन
फ़ारसी पोलिश पुर्तगाली रोमानियाई रूसी सर्बियाई स्लोवाक स्लोवेनियाई स्पेनिश स्वाहिली स्वीडिश थाई तुर्की यूक्रेनी उर्दू वियतनामी वेल्श यहूदी बंगाली बोस्नियाई
सिबुआनो एस्पेरांतो गुजराती हौसा हमोंग ईग्बो जावानीस कन्नड़ खमेर लाओ लैटिन माओरी मराठी मंगोलियन नेपाली पंजाबी सोमाली तामिल तेलुगु योरूबा
ज़ुलु
Английский Французский Немецкий Итальянский Португальский Русский Испанский