maison

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

Монипуляция чисел. 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 тоесть она сравнивает по первой цифре как этого избежать сделать так чтоб она стала сравнивать по всему числу?



Viktor Scherbakov (2001-12-18 10:04) 1

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



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

c'est comme?



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

Или сравнивай их tag_и



Viktor Scherbakov (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 вызовет исключение если передаваемая ей строка содержит что-то кроме цифр, ну еще минус впереди может быть.



Andrey Senchenko (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

Top.Mail.Ru Yandeks.Metrika













Mémoire: 0.81 MB
Heure: 0.032 c
3-21931
SklifF
2001-12-04 15:59
2002.01.08
Что это за ошибка? Capability not suppoted


6-22279
Denis
2001-07-28 22:08
2002.01.08
NMSMTP через прокси


4-22472
Eugene
2001-10-27 17:03
2002.01.08
Comment faire votre petit serveur proxy?


14-22322
Dense
2001-11-03 14:10
2002.01.08
Кто возмется сделать? Пригодиться всем.


1-22015
chasseur
2001-12-17 13:17
2002.01.08
Картинку на принтер





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