Edit com 0,00 delphi7

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
Marcos

Marcos

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar