घर
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]

procedure FindFiles(Path, Mask: string; List: TStrings; IncludeSubDir: Boolean = True);
var
SearchRec: TSearchRec;
FindResult: Integer;
begin
List.BeginUpdate;
try
Path:=IncludeTrailingBackSlash(Path);
FindResult:=FindFirst(Path+"*.*", faAnyFile, SearchRec);
try
while FindResult = 0 do with SearchRec do begin
if (Attr and faDirectory<>0) then begin
if IncludeSubDir and (Name<>"..") and (Name<>".")
then FindFiles(Path+Name, Mask, List, IncludeSubDir);
end else begin
if MatchesMask(Name, Mask) then List.Add(Path+Name);
end;
FindResult:=FindNext(SearchRec);
end;
finally
FindClose(SearchRec);
end;
finally
List.EndUpdate;
end;
end;



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.55 एमबी
समय: 0.023 c
3-21955
kalinka17
2001-12-03 13:16
2002.01.08
DBTreeView =) खोजने में मेरी मदद करें


1-22099
Yulyashka
2001-12-19 17:43
2002.01.08
DBGrid के बारे में प्रश्न !!


14-22347
roman001
2001-11-06 18:09
2002.01.08
होस्टिंग


1-22144
shornik
2001-12-20 11:36
2002.01.08
मास्टर्स !!!! कृपया समस्या में मदद करें!


1-22049
greenrul
2001-12-17 18:34
2002.01.08
जैसा





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