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

नीचे

शीघ्र nachset TLIST इसी तरह की शाखाएँ खोजें


Dreamer   (2001-12-17 14:17) [0]

एक सरणी है, जिसके लिए मैं मान निर्दिष्ट करता हूं और तुरंत इसे एक सूची में डाल देता हूं, फिर मुझे सरणी के मापदंडों को बदलने की आवश्यकता है और तदनुसार इसलिए कि tlist उन्हें भी देखता है, मैं एक एल्गोरिथ्म लाता हूं जिसमें सूची अपडेट नहीं देखती है :(



था
Form1: TForm1;
k: पूर्णांक;
मवाद: पूर्णांक की सरणी;
एन: पूर्णांक;
सूचीपत्र: सूची;
ukazpusk: PDouble;
जी: विस्तारित;


कार्यान्वयन

{$ R * .dfm}

प्रक्रिया TForm1.Button1 क्लिक करें (प्रेषक: TObject);
था
k: पूर्णांक;
शुरू करना
ListPUSK: = Tlist.Create;
n: = 4;
सेटलॉग्र्थ (PUSK, N);
k: = 0 से N-1 करते हैं
शुरू करना
pusk [k]: = k + 1;
न्यू (ukazPUSK);
ukazpusk ^: = pusk [k];
ListPUSK.Add (ukazPUSK);
अंत;

k: = 0 से N-1 करते हैं
शुरू करना
pusk [k]: = 8;
अंत;


k: = 0 से N-1 करते हैं
शुरू करना
ukazpusk: = LISTPUSK [k];
अगर ukazPUSK ^ = 8 तो
g: = ukazPUSK ^ -2;
अंत;

अंत;



MBo   (2001-12-17 14:24) [1]

पहले आप कॉपी शीट पॉइंटर्स में सरणी मानों की प्रतियां,
कहीं और स्थित है!

मुझे लगता है कि आपकी समस्या को बहुत आसान हल किया जाना चाहिए, और सबसे अधिक संभावना है कि आपको एक सरणी की आवश्यकता नहीं होगी। मूल समस्या बताइए।



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

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

ऊपर





मेमोरी: 0.54 एमबी
समय: 0.021 c
3-21898
प्रलाप
2001-11-30 18:56
2002.01.08
क्या असंगत रूप से संग्रहीत प्रक्रिया को चलाना संभव है?


1-22023
DelphiG
2001-12-13 03:13
2002.01.08
मेरे साथ? बंद विषय। कौन सा ओएस डेल्फी सबसे अच्छा काम करता है?


1-22195
LNix
2001-12-15 20:00
2002.01.08
स्ट्रिंग


3-21981
Termik
2001-12-06 08:22
2002.01.08
प्रमुख क्षेत्रों और पहचान के बारे में


1-22043
सर्ज
2001-12-18 19:18
2002.01.08
किसी वस्तु को हटाना





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