Problema com o case

Delphi

04/05/2004

E ai pessoal td certo??
Nao sei o q tem de errado nesse meu case, se alguém tiver alguma dica.
o erro é ´Constant expression expected´, e ocorre quando quero jogar o valor de b no edit3, nao tenho idéia do que seja.
Qualquer ajuda será bem vinda.
O código segue abaixo:

case a of
1:
edit1.Text:=inttostr(a);
edit2.text:=floattostr(b);
2:
edit3.text:=inttostr(a);
edit4.text:=floattostr(b);
3:
edit5.text:=inttostr(a);
edit6.text:=floattostr(b);
4:
edit7.text:=inttostr(a);
edit8.text:=floattostr(b);
5:
edit9.text:=inttostr(a);
edit10.text:=floattostr(b);
6:
edit11.text:=inttostr(a);
edit12.text:=floattostr(b);
7:
edit13.text:=inttostr(a);
edit14.text:=floattostr(b);
8:
edit15.text:=inttostr(a);
edit16.text:=floattostr(b);
9:
edit17.text:=inttostr(a);
edit18.text:=floattostr(b);
10:
edit19.text:=inttostr(a);
edit20.text:=floattostr(b);
else
showmessage(´Valor de medidor não encontrado´);
end;

Obrigado pela atenção


Salvati

Salvati

Curtidas 0

Respostas

Marco Salles

Marco Salles

04/05/2004

a principio esta faltando um simples bloco begin end entre as instruções:
case a of 
1: 
  begin
    edit1.Text:=inttostr(a); 
    edit2.text:=floattostr(b); 
  end;
2: 
  begin
    edit3.text:=inttostr(a);  
    edit4.text:=floattostr(b); 
end;
3: 
  begin
    edit5.text:=inttostr(a); 
    edit6.text:=floattostr(b); 
  end;
4: 
  begin
    edit7.text:=inttostr(a); 
    edit8.text:=floattostr(b); 
  end;
5: 
  begin
    edit9.text:=inttostr(a); 
    edit10.text:=floattostr(b); 
  end;
6: 
  begin
    edit11.text:=inttostr(a); 
    edit12.text:=floattostr(b); 
  end;
7: 
  begin
    edit13.text:=inttostr(a); 
    edit14.text:=floattostr(b); 
  end;
8: 
  begin
    edit15.text:=inttostr(a); 
    edit16.text:=floattostr(b); 
  end;
9: 
  begin
    edit17.text:=inttostr(a); 
    edit18.text:=floattostr(b); 
  end;
10: 
  begin
    edit19.text:=inttostr(a); 
    edit20.text:=floattostr(b); 
  end;
else 
  showmessage(´Valor de medidor não encontrado´); 
end;



GOSTEI 0
POSTAR