Fórum Condições não satisfazem resultado #420668
28/07/2012
0
Ola....mais um abacaxi para descascar.....rsrsrsrs
tenho dois edits de forma que ao colocar uma valor em um deles, o outro irá me trazer um resultado após eu clicar no botão satisfazendo as seguintes condições:
se o valor for menor ou igual a 90, o resultado será a soma do valor com 90;
se o valor for maior do que 90, o resultado será a subtração do valor com 90;
se o valor for maior do que 180, o resultado será uma mensagem informando que o valor é maior que 180;
só que esta retornando assim:
se o valor for menor ou igual a 90, o resultado está somando o valor com 90 e dá a mensagem;
se o valor for até 99, o resultado está subtraindo o valor com 90 e dá a mensagem;
se o valor for maior ou igual a 100, o resultado está somando o valor com 90 e não está dando a mensagem;
O código está assim:
Vai entender essa loucura...
tenho dois edits de forma que ao colocar uma valor em um deles, o outro irá me trazer um resultado após eu clicar no botão satisfazendo as seguintes condições:
se o valor for menor ou igual a 90, o resultado será a soma do valor com 90;
se o valor for maior do que 90, o resultado será a subtração do valor com 90;
se o valor for maior do que 180, o resultado será uma mensagem informando que o valor é maior que 180;
só que esta retornando assim:
se o valor for menor ou igual a 90, o resultado está somando o valor com 90 e dá a mensagem;
se o valor for até 99, o resultado está subtraindo o valor com 90 e dá a mensagem;
se o valor for maior ou igual a 100, o resultado está somando o valor com 90 e não está dando a mensagem;
O código está assim:
if edit3.Text <= 90 then
begin
edit6.Text := floattostr(strtofloat(edit3.Text) + 90);
end;
if edit3.Text > 90 then
begin
edit6.Text := floattostr(strtofloat(edit3.Text) - 90);
end;
if edit3.Text > 180 then
begin
showmessage(Valor maio do que 180);
end;Vai entender essa loucura...
Carlos Magno
Curtir tópico
+ 0
Responder
Posts
28/07/2012
William
Colega acho melhor vc jogar o valor para uma variável e depois efetuar as comparações, não tem erro:
var
valor : Double;
begin
valor := StrToFloat(Edit3.Text);
if valor <= 90 then
edit6.Text := floattostr(valor + 90);
if (valor > 90) and (valor <= 180) then
edit6.Text := floattostr(valor - 90);
if valor > 180 then
showmessage(Valor maio do que 180);
end;
Responder
Gostei + 0
30/07/2012
Carlos Magno
Wiliiam, meu mestre, funfou legal.....mais uma vez brigadão.
Com esse finalizado agora fica faltando encerrar só mais um tópico meu.
[url]https://www.devmedia.com.br/forum/delphi/420485-soma-em-dbtext[/url]
Com esse finalizado agora fica faltando encerrar só mais um tópico meu.
[url]https://www.devmedia.com.br/forum/delphi/420485-soma-em-dbtext[/url]
Responder
Gostei + 0
30/07/2012
William
Que blz, vamos ver o outro tópico então ....
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)