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

नीचे

संख्याओं का एकरूपता। इसी तरह की शाखाएँ खोजें


Socol   (2001-12-18 10:01) [0]

नमस्कार!
मान लीजिए कि लेबल 1.caption है: = "450"
यदि label1.caption> "500" है तो boton1.enabled: = true
अन्य
boton1.enablad: = false;
यदि label1.caption> "1000" है तो boton1.enabled: = true
अन्य
boton1.enablad: = false;
पहले मामले में, सब कुछ बदल जाता है और दूसरे में नहीं।
वह है, डेल्फी उस 450> 1000 की रक्षा करता है, यह पहले अंक पर तुलना करता है, इससे कैसे बचा जाए, ताकि यह पूरे नंबर पर तुलना करना शुरू कर दे?



Виктор Щербаков   (2001-12-18 10:04) [1]

संख्याओं की तुलना करें, न कि उनके स्ट्रिंग अभ्यावेदन की।



Socol   (2001-12-18 10:06) [2]

यह कैसा है?



gek   (2001-12-18 10:07) [3]

या उनसे tag_and की तुलना करें



Виктор Щербаков   (2001-12-18 10:15) [4]

अगर StrToInt (Label1.Caption)> StrToInt (Label2.Caption) तब ...



Voron   (2001-12-18 13:19) [5]

Bot1.Enabled: = StrToInt (Label1.Caption)> 500;
वहां तुम जाओ। बस यह ध्यान रखें कि StrToInt एक अपवाद को फेंक देगा यदि उसमें से पारित स्ट्रिंग में संख्याओं के अलावा कुछ और होता है, ठीक है, फिर भी आगे एक माइनस हो सकता है।



Андрей Сенченко   (2001-12-18 13:45) [6]

>> वोरॉन ©

यदि Label1.Caption में कुछ भी हो सकता है (और विकास स्तर पर यह मान लेना असंभव है) - तो रूपांतरण के लिए उपयोग करना बेहतर है

StrToIntDef (St: string, Default: पूर्णांक): LongInt



Voron   (2001-12-18 14:35) [7]

>> एंड्री सेनचेंको ©

विफलता के मामले में StrToIntDef अपवाद नहीं फेंकता है, लेकिन डिफ़ॉल्ट लौटाता है
मान लीजिए कि हमारे पास कुछ ऐसा है

I: = StrToIntDef (St; -1);

यदि सेंट "-1" के बराबर है, तो फ़ंक्शन वैसे भी -1 वापस आ जाएगा, और फिर आपको कैसे पता चलेगा कि यह सेंट से पूर्णांक का डिफ़ॉल्ट या एक स्ट्रिंग प्रतिनिधित्व लौटा है?

StrToInt विफलता के मामले में एक अपवाद फेंकता है, इसे संभाला जा सकता है।
सादर वोरन



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

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

ऊपर









मेमोरी: 0.57 एमबी
समय: 0.032 c
1-22181
भोजन
2001-12-21 11:12
2002.01.08
माउस फॉर्म मूवमेंट को कैसे रोकें?


4-22481
Stropal
2001-11-03 10:44
2002.01.08
सीधे काम प्रिंटर। सलाह देना


1-22077
कला
2001-12-18 17:19
2002.01.08
पास्कलचिक से प्रश्न ???


1-22082
चक
2001-12-19 10:07
2002.01.08
कैसे एक DLL के लिए एक समारोह पैरामीटर पारित करने के लिए।


1-22203
T2
2001-12-16 07:07
2002.01.08
अनुपस्थिति त्रुटि पकड़ना msWord





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