Faixa de valores

Delphi

02/05/2007

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:


  //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

Franthesco

Curtidas 0

Respostas

Massuda

Massuda

02/05/2007

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.


GOSTEI 0
POSTAR