Cruel

[Renanbg 1]

tenho um campo chamado temperatura e preciso fazer um teste para ver se a temperatura informada é inferior a 2 ou superior a 8

 

caso esteja fora desses padroes dar uma mensagem e fazer aparecer um campo para digitar o motivo pelo qual esta fora

 

usei o codigo abaixo no onexit do edit

 

if (DBEdit2.Text < '2') or (DBEdit2.Text > '8') then	begin	Mensagem := 'Temperatura fora dos padrões, informe a ação tomada!';	Application.MessageBox(PCHAR(Mensagem), 'AVISO', MB_ICONWARNING + MB_OK);	Label6.Visible:=true;	DBEdit3.Visible:=true;	DBEdit3.setfocus;	end;

coloquei no lugar certo ou deveria fazer o teste no botao gravar?

[Rodrigo Miss 1]

kra, você precisa converter os valores pra inteiro:

 

if (StrToInt(Edit1.Text) <2) or (StrToInt(Edit1.Text) >8) then   begin	 // seu codigo   end;

qto ao evento, ai vai de você mesmo analisar conforme sua nescesidade! naum existe um evento correto!

[Renanbg 1]

Muito bem lembrado Rodrigo, agora que fiz o teste me toquei

 

Fiz o seguinte

 

No exit se esta fora do padrao eu disparo a msg e mostro o campo a ser preenchido, mas se o caro n preencher ao tentar gravar fiz outro teste e obrigo ele a preencher

 

creio que seja a solução mais viavel

 

EDIT: agora preciso tbm testar se o campo esta vazio, pq senão da erro

 

como adaptar nesse if q você me passou?

 

Abraço...

[Renanbg 1]

kra, você precisa converter os valores pra inteiro:

if (StrToInt(Edit1.Text) <2) or (StrToInt(Edit1.Text) >8) then   begin	 // seu codigo   end;

qto ao evento, ai vai de você mesmo analisar conforme sua nescesidade! naum existe um evento correto!

só que tenho temperaturas do tipo 5,9Então n posso converter para inteiroComo faço?

[Hugo Slepicka 0]

Troca StrToInt por StrToFloat

[Renanbg 1]

beleza, nem me toquei... http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

 

Abraço...

[Hugo Slepicka 0]

Beleza... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Renanbg 1]

escuta...

 

Nessa linha

 

if (StrToFloat(Edit1.Text) <2) or (StrToFloat(Edit1.Text) >8) then

tem como eu adicionar mais um teste p ver se o campo é vazio ?

[Hugo Slepicka 0]

if (Edit1.Text = '') or (StrToFloat(Edit1.Text) <2) or (StrToFloat(Edit1.Text) >8) then

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Renanbg 1]

ótimo

 

eu tinha feito

 

if (StrToFloat(Edit1.Text) <2) or (StrToFloat(Edit1.Text) >8) or (Edit1.Text = '') then

por isso q n dava certo...heehe

 

Abraço...

[Hugo Slepicka 0]

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif