Edit com 0,00 delphi7

02/04/2018

4

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
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!!!!
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira