F�rum Comparar valor entre faixa #408447

13/10/2011

Pessoal como comparar se o valor X est� entre Y e Z

Exemplo : Edit1 = 100
Edit2 = 150
Edit3 = 120

Como saber se o valor do Edit3 est� entre a faixa de n�meros do edit1 e edit3 (100 a 150)

abra�o

Valdecir

Valdecir Peres

Curtir t�pico

+ 0

Responder

Posts

13/10/2011

Geversom Sousa

tente isso :


procedure TForm1.BitBtn1Click(Sender: TObject);
var ValorIni, ValorFim, ValorComparado : Double;
begin
    valorIni := StrToFloat(Edit1.Text);
    ValorFim := StrToFloat(Edit2.Text);
    ValorComparado := StrToFloat(Edit3.Text);

    if ((ValorComparado >= ValorIni) and (ValorComparado <= ValorFim))  then
    begin
       ShowMessage(est� na faixa);
    end;

end;

N�o coloquei no exemplo nenhum tratamento de erros ...

Abra�o

Responder

Gostei + 0

14/10/2011

Valdecir Peres

Valeu Geversom Sousa.

Muito obrigado

abra�o

Valdecir

Responder

Gostei + 0

19/10/2011

Geversom Sousa

Disponha Companheiro.

Grande Abra�o

Responder

Gostei + 0