compactar codigo combobox

[AlejandroCalica]

Empezado por kuan-yiu

Código Delphi [-]
case CB1 of
1: //Cachorro de 2  meses
   Gra:=StrToFloatDef(Edit1.Text,0) * 10 /100;

2: //Cachorro de 3 a 4 meses
   Gra:=StrToFloatDef(Edit1.Text,0) * 8 /100;

// y todas las demás opciones
else
   Gra:=1; // Para cubrir todos los casos
end;

Label5.Text:=FloattoStr(Gra);
Hc:=(Gra * 60 )/100;
Cm:=(Gra * 20) /100;
Ov:=(Gra * 10) /100;
Fv:=(Gra * 5) /100;
Sn:=(Gra * 5) /100;
Label9.Text:=FloattoStr(Hc)  ;
Label10.Text:=FloattoStr(Cm)  ;
Label11.Text:=FloattoStr(Ov)  ;
Label12.Text:=FloattoStr(Fv)  ;
Label13.Text:=FloattoStr(Sn)  ;

asi quedo al final

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
CB1:=combobox1.ItemIndex+1;
case CB1 of
1: begin //Cachorro de 2  meses
   Gra:=StrToFloatDef(Edit1.Text,0) * 10 /100;
end;
2: begin //Cachorro de 3 a 4 meses
   Gra:=StrToFloatDef(Edit1.Text,0) * 8 /100;
end;
3:begin//Cachorro de 5 a 6 meses
  Gra:=StrToFloatDef(Edit1.Text,0) * 6 /100;
end;
4: begin //Cachorro de 7 a 8 año
   Gra:=StrToFloatDef(Edit1.Text,0) * 4 /100;
end;
5: begin //Cachorro de 9 a 10 año
   Gra:=StrToFloatDef(Edit1.Text,0) * 3 /100;
end;
6: begin //Cachorro de 11 a 12 año
   Gra:=StrToFloatDef(Edit1.Text,0) * 2 /100;
end;
7: begin //Adulto Actividad Alta
   Gra:=StrToFloatDef(Edit1.Text,0) * 4 /100;
end;
8: begin //Adulto Actividad Media
   Gra:=StrToFloatDef(Edit1.Text,0) * 3 /100;
end;
9: begin //Adulto Cedentario
   Gra:=StrToFloatDef(Edit1.Text,0) * 2.5 /100;
end;
10: begin //Esterilizada o Castrado
    Gra:=StrToFloatDef(Edit1.Text,0) * 2.5 /100;
end;
11: begin //Perro mayor de 6 años
    Gra:=StrToFloatDef(Edit1.Text,0) * 2 /100;
end else
   Gra:=1;
end;
Label5.Text:=FloattoStr(Gra);
Hc:=(Gra * 60 )/100;
Cm:=(Gra * 20) /100;
Ov:=(Gra * 10) /100;
Fv:=(Gra * 5) /100;
Sn:=(Gra * 5) /100;
Label9.Text:=FloattoStr(Hc)  ;
Label10.Text:=FloattoStr(Cm)  ;
Label11.Text:=FloattoStr(Ov)  ;
Label12.Text:=FloattoStr(Fv)  ;
Label13.Text:=FloattoStr(Sn)  ;
end;

se podra hacer mas compacto??????

[[kuan-yiu]]

Si solo hay una línea dentro del 'case' sobran el 'begin end' (igual que le pasa al 'else'), como te puse yo en el código.
Existen otros componentes que te pueden devolver un valor asociado a cada item. Busca a ver si puedes usar alguno de ellos.
Puedes crear una TStringList con pares de valores: por un lado el número de item y por el otro el valor del cálculo pero implica código de creación. Reduces aquí pero sumas en otra parte.

[AlejandroCalica]

me dejaste igual o con mas dudas jajajajajaja, es que imagine qque podria no se usar los item dentro de un array y asi acortar lineas de codigo las opciones de en listar los items del combobox o algo asi kuan-yiu

y ya abusando de tu conocimiento, como se puede cambiar el icono y la pantalla principal de fondo negro con esa flamita roja que aparece en las aplicacones terminadas en las Apks??

[AlejandroCalica]

estoy usando Delphi 10.3.3

[[kuan-yiu]]

No tengo Delphi 10, pero supongo que estará donde siempre:
Porject | Options | Application
Ahí puedes cambiar el logo por un .ico con todos los tamaños que necesites.

La pantalla principal la defines tú, es un formulario y tiene propiedades como el color o las dimensiones, la posición en que aparece, si se puede minimizar...

[[kuan-yiu]]

También puedes consultar este hilo a ver si te ayuda o alguno de los que está abajo:
http://www.clubdelphi.com/~marcsc/fo...ad.php?t=28534