Fórum delphi7 intervalo #592061
28/03/2018
0
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
edit1 = 10
editx = intervalo 1 a 10 usar valor 30
se edit 1 estiver dentro do intervalo usar valor 30 na edit x
Marcos
Curtir tópico
+ 0
Responder
Post mais votado
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;Natanael Ferreira
Responder
Gostei + 2
Mais Posts
29/03/2018
Marcos
Obrigado!
Natanael Ferreira funcionou!
Natanael Ferreira funcionou!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)