Fórum Faixa de valores #341233
02/05/2007
0
Pessoal, estou precisando da ajuda de vocês.
Preciso fazer uma aplicação que seja mais ou menos assim:
Se eu digitar um valor entre 0 e 100 no edit1 o edit2 terá que mudar seu valor, automaticamente para 1.
Se eu digitar um valor entre 101 e 200 no edit1 o edit2 terá que mudar seu valor, automaticamente para 2.
Se eu digitar um valor entre 201 e 300 no edit1 o edit2 terá que mudar seu valor, automaticamente para 3.
E assim sucessivamente.
Já tentei fazer isso com if mas não deu muito certo. Fiz assim:
Alguem tem uma sugestão de como fazer esta aplicação?
Desde já agradeço
Preciso fazer uma aplicação que seja mais ou menos assim:
Se eu digitar um valor entre 0 e 100 no edit1 o edit2 terá que mudar seu valor, automaticamente para 1.
Se eu digitar um valor entre 101 e 200 no edit1 o edit2 terá que mudar seu valor, automaticamente para 2.
Se eu digitar um valor entre 201 e 300 no edit1 o edit2 terá que mudar seu valor, automaticamente para 3.
E assim sucessivamente.
Já tentei fazer isso com if mas não deu muito certo. Fiz assim:
//SE FOR ENTRE 0 E 100 É 1 IF (Edit1.Text >= ´0´) and (Edit1.Text <= ´100´) THEN BEGIN Edit2.Text := ´1´; END; //SE FOR ENTRE 101 E 200 É 2 IF (Edit1.Text >= ´101´) and (Edit1.Text <= ´200´) THEN BEGIN Edit2.Text := ´2´; END; . . .
Alguem tem uma sugestão de como fazer esta aplicação?
Desde já agradeço
Franthesco
Curtir tópico
+ 0
Responder
Posts
03/05/2007
Massuda
Como o valor que você quer comparar é um número não uma string, converta o texto para integer (use por exemplo StrToIntDef) e faça a comparação. Do jeito que você está fazendo, terá que tratar diversos casos, por exemplo ´ 100´, ´ 100 ´, ´0100´, etc.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)