Como passar de um edit para outro usando IF edit1.text?

Delphi

15/07/2005

Ola amigos, preciso que meu programa reconheça esse codigo

if edit2.text <= 200 then
begin
dbedit5.setfocus;
end else
begin
dbedit6.setfocus;
end;

Porem nao compila sem colocar ´200´ aspas entre o numero 200 se deixar com as apas verifiquei que ao digitar 1 ele pula para dbedit5, agora se digitar 3 ele pula para dbedit6, como se ele reconhecesse 200 somente como 2

O que eu quero eh que se eu digitar no edit um numero menor que 200 ele pule para o dbedit5 se form maior que 200 pule para o dbedit6.

Alguem pode me ajudar?

Desde ja agradeço
Obrigado!
Adriano...


Adriano_servitec

Adriano_servitec

Curtidas 0

Respostas

Rjun

Rjun

15/07/2005

if StrToInt(edit2.text) <= 200 then 
  dbedit5.setfocus; 
else 
  dbedit6.setfocus; 
end;


Vale lembrar que não está sendo feito nenhum tratamento caso haja algum caracter que não seja número no edit2.


GOSTEI 0
Adriano_servitec

Adriano_servitec

15/07/2005

Obrigado RJun


Esqueci que tinha que colocar StrToInt

Valeu pela ajuda Amigo


GOSTEI 0
POSTAR