Ver Mensaje Individual
  #9  
Antiguo 28-06-2011
Avatar de Chichero
Chichero Chichero is offline
Miembro
 
Registrado: dic 2007
Ubicación: Venezuela
Posts: 22
Reputación: 0
Chichero Va por buen camino
CASE de "tal" strings en combobox da ciertas varibles reales

Mi problema es que no he visto soluciones para casos de strings en combobox...Tengo varias ciudades las cuales tienen valores diferentes para unas variables, ejemplo:

Caracas A=20, B=25, C=38

Valencia A=39, B=50, C=60

Maracaibo A=42, B= 28, C=55

que con esas variables luego hare ciertas operaciones y presentare resultados, se que debo trabajar con la selectiva multiple CASE y bueno creo que debo definir una variable string que proceda de la opcion seleccionada en el combobox...quisiera que me ayudaran con la codificacion; más o menos esquematizando lo que quiero y la codificación que hize (pero el programa no corre, no sé cuál es el error:
Código Delphi [-]
procedure

TForm1.BitBtn1Click(Sender:TObject);

Var A,B,C:real;
City:String

begin
City:=String(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
CASE City OF
'Caracas': A:=20;
B:=25;
C:=38;
'Valencia': A:=39;
B:=50;
C:=60;
'Maracaibo': A:=42;
B:=28;
C:=55;
ELSE
Showmessage('No Seleccionó Ciudad');
end;
.
.Hago las lineas de operaciones
.

end;

Última edición por ecfisa fecha: 28-06-2011 a las 15:43:42. Razón: ETIQUETAS [DELPHI] [/DELPHI]
Responder Con Cita