Condições não satisfazem resultado

Delphi

28/07/2012

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

Carlos Magno

Curtidas 0

Respostas

William

William

28/07/2012

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;
GOSTEI 0
Carlos Magno

Carlos Magno

28/07/2012

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]
GOSTEI 0
William

William

28/07/2012

Que blz, vamos ver o outro tópico então ....
GOSTEI 0
POSTAR