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

नीचे

फ़ाइल डाउनलोड करें! इसी तरह की शाखाएँ खोजें


Socol   (2001-12-18 08:54) [0]

नमस्कार! क्यों जब यह कोड किसी फ़ाइल को जानकारी लिखता है तो यह qqqqqq नहीं बल्कि किसी प्रकार के गड़बड़ प्रश्नों के सभी प्रकार को हटा देता है?
प्रक्रिया TForm1.Button3 क्लिक करें (प्रेषक: TObject);
var फ़ाइलहैंडल: पूर्णांक;
एस: स्ट्रिंग;
शुरू करना
S: = "qqqqqq";
FileHandle: = FileCreate ("C: \ q.txt");
FileWrite (Filehandle, S, sizeof (S));
FileClose (FileHandle);
अंत;



MBo   (2001-12-18 09:00) [1]

क्योंकि स्ट्रिंग एक सूचक है, Sizeof = 4। उदाहरण के लिए, यह करो।
var f: टेक्स्टफाइल;
s: स्ट्रिंग;
शुरू करना
S: = "qqqqqq";
AssignFile (f, "C: \ q.txt");
पुनर्लेखन (एफ);
रिटेलन (एफ, एस);
क्लोज़फ़ाइल (एफ);




Mick   (2001-12-18 09:29) [2]

FileWrite (FileHandle, S [1], लंबाई (S))



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

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

ऊपर









मेमोरी: 0.55 एमबी
समय: 0.023 c
4-22499
YUS
2001-10-31 20:51
2002.01.08
FindWindow


4-22511
प्लग एंड प्ले
2001-10-29 22:23
2002.01.08
और कंप्यूटर को प्रोग्रामेटिक रूप से कैसे बंद करें?


6-22268
Voha
2001-10-05 13:25
2002.01.08
WebBrowser घटक में कोई संदर्भ पैरामीटर नहीं है।


1-22120
लिविअफ़ान
2001-12-19 22:26
2002.01.08
प्रतीक के पुस्तकालय


1-22205
डेनिस प्रोस्किन
2001-12-15 12:46
2002.01.08
QReport - बहुत अधिक डेटा





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