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

नीचे

दो सवालों के साथ मदद करो! इसी तरह की शाखाएँ खोजें


Socol   (2001-12-15 10:45) [0]

नमस्कार प्रिय गपोड़ा प्रोग्रामर्स!
चर को किसी फ़ाइल में लिखने और उन्हें लोड करने में मदद करें।
गेंद के xnumx हैं
और एक्सएनयूएमएक्स एबीसी चर
कार्य यह है कि चर को एक फ़ाइल में लिखें और यदि आवश्यक हो तो उन्हें लोड करें।
हमें चर के लेबल को इस तरह से चर में निर्दिष्ट करना होगा
Label1.caption: = ए;
Label2.caption: = B;
Label3.caption: = C;
और फिर जब आप कमांडबटन पर क्लिक करते हैं, तो चर peremen.sav में सहेजे जाते हैं।
और इसी तरह भरी हुई है।
+++ एनीमिया छवि कैसे डाउनलोड करें * .gif +++
मैं सभी को धन्यवाद देता हूं जिन्होंने उत्तर दिया!



Anatoly Podgoretsky   (2001-12-15 11:43) [1]

Readln(f,a,b,c);
Writeln(f,a,b,c);



Song   (2001-12-15 22:22) [2]

प्रकार = रिकॉर्ड
a,b,c:String;
अंत;
Var ff:File of Rec;
n:Rec;

...

Read(ff,n);

Label1.Caption:=n.a;
Label1.Caption:=n.b;
Label1.Caption:=n.c;

...

Write(ff,n);


Всё просто!!!



Вадим   (2001-12-15 23:05) [3]

2Song

प्रकार = रिकॉर्ड
a,b,c:String;
अंत;
Var ff:File of Rec;
n:Rec;

Это работать не будет, надо использовать ShortString;



Song   (2001-12-16 22:28) [4]

Да, просто забыл, но я делаю так: a,b,c:String[100];
так будет работать



KilkennyCat   (2001-12-17 03:48) [5]

Никак работать не будет :)
вы файл забыли открыть :))



Builder   (2001-12-17 03:53) [6]

А может writeComponent ?:)



Song   (2001-12-19 23:24) [7]

Ну,это же ясно как белый день, что его нужно открыть, сбросить на чтение, а потом и закрыть - просто не стал писать лишнюю инфу, это и так все знают! (посмотрите на суть вопроса)



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

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

ऊपर









मेमोरी: 0.83 एमबी
समय: 0.036 c
1-22142
शुरुआत
2001-12-20 10:42
2002.01.08
ReplaceDialog


7-22452
FSP
2001-09-23 18:24
2002.01.08
प्रोग्रामेटिक रूप से बनाए गए कोम्पेन्टा के लिए ऑनक्लिक इवेंट


7-22443
मासिक
2001-09-27 13:02
2002.01.08
पॉपअप मेनू Y2k


3-21968
olban
2001-12-05 11:20
2002.01.08
QuantumGrid


3-21956
सेवोस्त्यानोव इगोर
2001-12-05 17:56
2002.01.08
प्रोग्रामेटिक रूप से SHUTDOWN IMMEDIATE निष्पादित करें





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