घर
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.04 c
3-21949
एकांतवासी
2001-12-05 13:22
2002.01.08
वर्तमान रिकॉर्ड मूल्य


1-22073
HydraMarat
2001-12-19 00:22
2002.01.08
DLL या BPL


1-22197
T2
2001-12-16 07:17
2002.01.08
क्या विंडोज टोकरी को प्रोग्रामेटिक रूप से अक्षम करना संभव है?


3-21997
J
2001-12-05 11:46
2002.01.08
Sysdba जैसी अनुमतियों वाला उपयोगकर्ता कैसे बनाएँ


14-22410
fint
2001-11-08 15:10
2002.01.08
इसे अभी आज़माएं





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