Fórum Edit com 0,00 delphi7 #592101
02/04/2018
0
Tenho uma edit que esta sendo usada por um intervalo
valor1 := StrToIntDef(Edit4.Text, 0);
case valor1 of
0 .. 1500:
Edit4.Text := '1';
else
Edit4.Text := '';
valor12 := StrToIntDef(Edit4.Text, 0);
case valor1 of
1501 .. 3000:
Edit4.Text := '0,92';
else
Edit4.Text := '';
Só que o problema é quando o resultado fica entre 1501 a 3000 na edit 4 so aparece 0 mais queria que aparecesse o 0,92
valor1 := StrToIntDef(Edit4.Text, 0);
case valor1 of
0 .. 1500:
Edit4.Text := '1';
else
Edit4.Text := '';
valor12 := StrToIntDef(Edit4.Text, 0);
case valor1 of
1501 .. 3000:
Edit4.Text := '0,92';
else
Edit4.Text := '';
Só que o problema é quando o resultado fica entre 1501 a 3000 na edit 4 so aparece 0 mais queria que aparecesse o 0,92
Marcos
Curtir tópico
+ 0
Responder
Posts
10/09/2019
Ricardo Araujo
Boa tarde,
A solução para este problema, segue o código :
procedure TForm1.Button3Click(Sender: TObject);
var
valores: Integer;
begin
valores := StrToIntDef(edt1.Text, 0);
case valores of
0 .. 1500:
edt4.Text := '1';
1501 .. 3000:
edt4.Text := '0,92';
else
edt4.Text := '';
end;
end;
espero ter ajudado!!!!
A solução para este problema, segue o código :
procedure TForm1.Button3Click(Sender: TObject);
var
valores: Integer;
begin
valores := StrToIntDef(edt1.Text, 0);
case valores of
0 .. 1500:
edt4.Text := '1';
1501 .. 3000:
edt4.Text := '0,92';
else
edt4.Text := '';
end;
end;
espero ter ajudado!!!!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)