F�rum intervalo #592173

04/04/2018

tenho esse intervalo mais sao varios dependendo do valor so que quando coloco acima de um intervalo a edit nao reconheci e acaba mandando sempre o zero ao inves do valor do segundo intervalo

begin

valor1 := StrToIntDef(Edit4.Text, 0);
case valor1 of
0 .. 1500:
Edit4.Text := '1';

else
Edit4.Text := '';

valor1 := StrToIntDef(Edit4.Text, 0);
case valor1 of
1501 .. 3000:
Edit4.Text := '0,92';

else
Edit4.Text := '';

Marcos

Curtir t�pico

+ 0

Responder

Post mais votado

04/04/2018

Tente seguir a sintaxe com v�rios intervalos do c�digo abaixo:

procedure TForm6.Button1Click(Sender: TObject);
var
  valor1: Integer;
begin
  valor1 := StrToIntDef(Edit4.Text, 0);
  case valor1 of
    0 .. 1500:
      Edit4.Text := '1';
    1501 .. 3000:
      Edit4.Text := '0,92';
    3001 .. 4500:
      Edit4.Text := '0,55';
    4501 .. 6000:
      Edit4.Text := '0,45';
  else
    Edit4.Text := '';
  end;
end;

Veja este link que explica sobre o comando Case:

http://www.delphibasics.co.uk/RTL.asp?Name=Case

Natanael Ferreira

Responder

Gostei + 2