Comparar valor entre faixa

Delphi

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

Valdecir Peres

Curtidas 0

Respostas

Geversom Sousa

Geversom Sousa

13/10/2011

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
GOSTEI 0
Valdecir Peres

Valdecir Peres

13/10/2011

Valeu Geversom Sousa.

Muito obrigado


abraço

Valdecir
GOSTEI 0
Geversom Sousa

Geversom Sousa

13/10/2011

Disponha Companheiro.

Grande Abraço
GOSTEI 0
POSTAR