Problema com o case

Question

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...

Marco Salles · Answer

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;

F�rum Problema com o case #229752