घर
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.022 c
1-22078
डीजे एक्स
2001-12-15 16:11
2002.01.08
रूपांतरण, रजिस्ट्री, आईएनआई


1-22000
हड़ताल करनेवाला
2001-12-13 07:59
2002.01.08
Excel कार्यपत्रक सेल में डेटा स्थानांतरित करना


3-21904
एंड्रयू
2001-11-29 22:18
2002.01.08
सवाल


1-22233
Delphimun
2001-12-15 12:47
2002.01.08
Tolecontainer घटक में किसी फ़ाइल को चलाने के लिए कैसे करें


14-22373
Panov
2001-11-08 18:34
2002.01.08
प्रतियोगिता कार्यक्रम के खिलाफ एक विशिष्ट परियोजना का विकास।





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