[Delphos]

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.