delphi7 intervalo

Delphi

28/03/2018

tenho um resultado numa edit qualquer quero que outra edit saia o resultado de alguns intervalos estipulados tipo se o resultado da edit for 10 e ele estiver dentro do intervalo usar um valor qualquer de confirmação.

edit1 = 10
editx = intervalo 1 a 10 usar valor 30

se edit 1 estiver dentro do intervalo usar valor 30 na edit x
Marcos

Marcos

Curtidas 0

Melhor post

Natanael Ferreira

Natanael Ferreira

29/03/2018

Veja se este exemplo ajuda:

procedure TForm1.Button1Click(Sender: TObject);
var
  valor1: Integer;
begin
  valor1 := StrToIntDef(Edit1.Text, 0);

  case valor1 of
    1 .. 10:
      Editx.Text := '30';
  else
    Editx.Text := '';
  end;
end;
GOSTEI 2

Mais Respostas

Marcos

Marcos

28/03/2018

Obrigado!
Natanael Ferreira funcionou!
GOSTEI 0
POSTAR