Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Monopulação de números. Encontre agências semelhantes


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

Olá!
Digamos que haja label1.caption: = "450"
Se label1.caption> "500", então boton1.enabled: = true
outro
boton1.enablad: = falso;
Se label1.caption> "1000", então boton1.enabled: = true
outro
boton1.enablad: = falso;
No primeiro caso, tudo acaba e no segundo não.
isto é, o delphi protege o 450> 1000 ou seja, compara no primeiro dígito, como evitar isso, para que ele comece a comparar com o número inteiro?



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

Compare números, não suas representações de string.



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

como é



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

Ou compare-os com tag_and



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

se StrToInt (Label1.Caption)> StrToInt (Label2.Caption) então ...



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

Bot1.Enabled: = StrToInt (Label1.Caption)> 500;
Lá vai você. Apenas lembre-se de que o StrToInt lançará uma exceção se a string passada a ele contiver algo diferente de números, bem, ainda pode haver um sinal negativo à frente.



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

>> Voron ©

Se Label1.Caption pode conter qualquer coisa (e na fase de desenvolvimento, é impossível supor que) - então é melhor usar para conversão

StrToIntDef (St: string, padrão: inteiro): LongInt



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

>> Andrey Senchenko ©

StrToIntDef em caso de falha não lança uma exceção, mas retorna padrão
Vamos dizer que temos algo parecido

I: = StrToIntDef (St, -1);

se St for igual a "-1", a função retornará -1 de qualquer maneira e, em seguida, como você sabe se retornou Default ou uma representação de string do inteiro de St?

StrToInt em caso de falha lança uma exceção, ele pode ser tratado.
Atenciosamente Voron



Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.57 MB
Hora: 0.027 c
1-22246
Andrey196
2001-12-16 22:03
2002.01.08
Como criar um cursor de cor no editor de imagens da Borland


1-22095
ev
2001-12-18 20:22
2002.01.08
forma de onda e espectro


6-22278
garagem
2001-10-02 12:27
2002.01.08
Diga-me o algoritmo para substituir letras grandes por letras minúsculas.


6-22303
maxi
2001-10-11 18:03
2002.01.08
O cliente DCOM não vê o servidor DCOM em máquinas diferentes.


1-22093
Bristol
2001-12-19 11:59
2002.01.08
enviando cartas usando Delphi 5





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol