maison
Top.Mail.Ru Yandeks.Metrika
Forum: "Main";
Archive actuelle: 2002.01.08;
Télécharger: [xml.tar.bz2];

vers le bas

Monipulation des nombres. Trouver des branches similaires


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

Bonjour!
Допустим есть label1.caption:= "450"
if label1.caption > "500" then boton1.enabled:=true
d'autre
boton1.enablad:=false;
if label1.caption > "1000" then boton1.enabled:=true
d'autre
boton1.enablad:=false;
В первом случии все получается а во втором нет.
тоесть делфя щитает что 450 > 1000 тоесть она сравнивает по первой цифре как этого избежать сделать так чтоб она стала сравнивать по всему числу?



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

Сравнивай числа, а не их строковые представления.



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

c'est comme?



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



Pages: 1 branche entière

Forum: "Main";
Archive actuelle: 2002.01.08;
Télécharger: [xml.tar.bz2];

à l'étage









Mémoire: 0.83 MB
Heure: 0.042 c
1-22160
Yakudza
2001-12-20 16:46
2002.01.08
Copier dans le presse papier


14-22403
Burmistroff
2001-11-11 20:13
2002.01.08
Супер справочник по Delphi -2. Ваше мнение, please.


1-22055
walker_ag
2001-12-19 03:27
2002.01.08
Comment faire ça?


7-22441
ulysse
2001-09-19 20:31
2002.01.08
Delphi 5 Ent n'est pas installé normalement sous Win2k Pro


1-22009
oomneeq
2001-12-14 21:26
2002.01.08
Référence de classe circulaire





afrikaans albanais Arabic arménien azerbaïdjanais basque Biélorusse Bulgare catalan Chinois simplifié) Chinois (traditionnel) croate Tchèque Danois Néerlandais English estonien Filipino Finlandais Français
galicien géorgien Allemand Grecque Créole haïtien hébreu Hindi Hongrois Islandais Indonesian irlandais Italien Japonais Coréen letton lituanien macédonien Malay maltais Norvégien
persan Polonais Portugais roumain Russe serbe Slovaque Slovène Espagnol Swahili Suédois Thai turc ukrainien Urdu vietnamien gallois yiddish bengali bosniaque
Cebuano espéranto gujarati Hause hmong Igbo Javanais Kannada Khmer lao latin maori Marathi mongol népalais punjabi somali tamil telugu yoruba
zoulou
Английский Français Allemand Italien Португальский Русский Espagnol