FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
Pregunta tonta
Hola foro
Porque me dice que necesito un ordinal en este procedimiento y lo de incompatible tipos integer y string Procedure NumeroMes(nombre:String); begin Case (nombre) of 'ENERO' : MesActual := 1; 'FEBRERO' : MesActual := 2; 'MARZO' : MesActual := 3; 'ABRIL' : MesActual := 4; 'MAYO' : MesActual := 5; 'JUNIO' : MesActual := 6; 'JULIO' : MesActual := 7; 'AGOSTO' : MesActual := 8; 'SEPTIEMBRE' : MesActual := 9; 'OCTUBRE' : MesActual := 10; 'NOVIEMBRE' : MesActual := 11; 'DICIEMBRE' : MesActual := 12; else ShowMessage('Error en Mes Seleccionado'); end; nombre contiene la seleccion de un comboBox y MesActual es una variable global de tipo integer Pero, ¿No deberia de funcionar? Salu2. |
|
|
|