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

नीचे

कोड win273 में अधिक `2000 फ़ाइलें नहीं बनाता है इसी तरह की शाखाएँ खोजें


Dmitriy(new)   (2001-12-13 19:37) [0]

कोड win273 में अधिक `2000 फ़ाइलें नहीं बनाता है

प्रक्रिया TForm1.Button1 क्लिक करें (प्रेषक: TObject);
var SearchRec: Tsearchrec; च: फ़ाइल; b: बाइट की सरणी [0..16383]; एस, शॉर्टनेम, फाइलनेम: स्ट्रिंग; मैं, एक्सटैनम, आकार: पूर्णांक;
शुरू करना
// पुरालेख निर्देशिका बनाएं (यदि नहीं है तो)
फ़ाइल नाम: = "RAMIZ.RCV"; GlobalStop: = गलत;
{$ i -} // chdir (".."); createir ("आर"); chdir (".."); {$ i +}
// फ़ाइल पढ़ें
I के लिए: = 1 TO 50000 Do Begin
अगर GlobalStop फिर ब्रेक;
Label1.Caption: = inttostr (i); Application.ProcessMessages;
असाइनफाइल (एफ, फाइलनेम); रीसेट (f, 1); blockread (f, b, xnumx, size); नज़दीकी (एफ); // मिटा (एफ);
एक्सनम: = एक्सएनयूएमएक्स; ShortName: = ".. \ r \ RAMIZ";
दोहराना
इंक (एक्सटैनम); S: = shortname + inttostr (ExtNum) + "। RCV";
जब तक findfirst (S, $ 3f, SearchRec) <> 0;
असाइनफ़ाइल (एफ, एस);
फिर से लिखना (f, 1);
ब्लॉकराइट (एफ, बी, आकार);
नज़दीकी (एफ);
अंत;
अंत;



Dmitriy(new)   (2001-12-13 20:23) [1]

और यह कोई नहीं समझ सकता है



Dmitriy(new)   (2001-12-13 20:40) [2]

मदद !!!!



Макс Черных   (2001-12-13 22:47) [3]

1। किसी तरह का अद्भुत कोड।
2। क्या तुरंत आंख पकड़ता है:
दोहराना इंक (एक्सटैनम); S: = shortname + inttostr (ExtNum) + "। RCV"; जब तक findfirst (S, $ 3f, SearchRec) <> 0; // <<<< ----- असाइनफ़ाइल (एफ, एस);
प्रत्येक findfirst कॉल में FindClose कॉल होनी चाहिए,
अन्यथा आप बहुत जल्दी संसाधनों के बिना सिस्टम को छोड़ सकते हैं।
सहायता अनुभाग देखें: "FindFirst function"






Ю.Ю.   (2001-12-14 06:52) [4]

50000 एक ही फ़ाइल "RAMIZ.RCV" को एक बार क्यों पढ़ता है?
अगर रिवाइट कहा जाता है, तो फ़ाइल की खोज क्यों करें?
फिर से लिखना एफ को सौंपा गया है।
इसकी जगह इसे बनाया गया है।



Dmitriy(new)   (2001-12-16 09:38) [5]

> मैक्स ब्लैक ©

धन्यवाद

मुझे लगा कि विन 2000 में कोड छोटी गाड़ी है
असाइनफाइल (एफ, फाइलनेम); रीसेट (f, 1); blockread (f, b, xnumx, size); नज़दीकी (एफ);

> यु.यु.

उदाहरण परीक्षण



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

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

ऊपर









मेमोरी: 0.57 एमबी
समय: 0.026 c
6-22296
Kolyan
2001-10-11 12:49
2002.01.08
TSocket!


1-22158
Praco
2001-12-20 16:29
2002.01.08
TCustomGrid और इसके सभी वंशज ...


1-22207
Delphimun
2001-12-15 10:00
2002.01.08
कैसे एक exe में कई फ़ाइलों को संकलित करने के लिए


14-22355
शीतदंश
2001-11-06 12:39
2002.01.08
अनुवाद


1-22183
एक्सईएन
2001-12-21 11:21
2002.01.08
DelphiX_play





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