घर
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],Length(S))



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

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

ऊपर





मेमोरी: 0.54 एमबी
समय: 0.026 c
1-22020
सिंह ^ सूर्य
2001-12-18 07:08
2002.01.08
TMemo


1-22134
Rosco
2001-12-15 12:54
2002.01.08
और यह पहले से ही है?


3-21995
दिमित्री डी।
2001-12-07 08:00
2002.01.08
BDE त्रुटि हो गई ... मुझे समझ नहीं आया कि समस्या क्या हो सकती है


6-22288
वायुमंडलीय
2001-10-09 23:49
2002.01.08
WinGate


6-22277
prosof
2001-10-02 10:21
2002.01.08
आईपी ​​द्वारा नेटवर्क पर प्रत्येक संवाददाता के यातायात की परिभाषा।





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