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

नीचे

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


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

नमस्कार!
Допустим есть label1.caption:= "450"
if label1.caption > "500" then boton1.enabled:=true
अन्य
boton1.enablad:=false;
if label1.caption > "1000" then 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_и



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

if StrToInt(Label1.Caption) > StrToInt(Label2.Caption) then ...



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

Bоton1.Enabled := StrToInt(Label1.Caption) > 500;
Вот так. Только надо учитывать, что StrToInt вызовет исключение если передаваемая ей строка содержит что-то кроме цифр, ну еще минус впереди может быть.



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

>> Voron ©

Если в Label1.Caption может содержаться что угодно ( и на этапе разработки нельзя предположить что ) - то для преобразования лучше использовать

StrToIntDef(St:string,Default:integer) : LongInt



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

>> Андрей Сенченко ©

StrToIntDef в случае неудачи не вызывает исключение, а возвращает Default
Допустим у нас что-то вроде

I := StrToIntDef(St, -1);

ели St равно "-1" то функция в любом случае вернет -1, и тогда как узнать, что она вернула Default или строковое представление целого из St?

StrToInt в случае неудачи генерит исключение, его можно обработать.
С уважением Voron



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

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

ऊपर









मेमोरी: 0.83 एमबी
समय: 0.029 c
1-22192
असंभव कल्पना
2001-12-15 19:34
2002.01.08
कैसे समय और अनुवाद से सेकंड खींचने के लिए


14-22350
चालक दल में कटौती
2001-11-04 16:49
2002.01.08
मैं यहाँ बैठो, और कुछ नहीं करना है!


1-22059
सिंह ^ सूर्य
2001-12-19 07:24
2002.01.08
किसने काम किया


6-22273
डेनिस टिटोव
2001-10-06 11:50
2002.01.08
स्थानीय नेटवर्क का निर्माण


1-22256
प्रश्नावली चलना
2001-12-15 08:50
2002.01.08
आईआईएल फ़ाइल से मान पढ़ना





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