Pregunta tonta

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

[__cadetill]

Empezado por Delphos

Pero, ¿No deberia de funcionar?

No, ya que la sentencia case en Delphi no admite strings

[DarkByte]

A tu pregunta final, por lo que yo he visto es que sí debería de funcionar, pero dónde está el error, no lo sé. Y... a veces las preguntas que se piensan tontas son las más interesantes e inteligentes.

[DarkByte]

No admite strings??? y porqué???

[__cadetill]

Empezado por DarkByte

A tu pregunta final, por lo que yo he visto es que sí debería de funcionar, pero dónde está el error, no lo sé.

Ahora ya sabes dónde

Empezado por DarkByte

No admite strings??? y porqué???

Bueno, eso creo que deberías de preguntarselo a la gente de Borland

[roman]

Empezado por cadetill

Bueno, eso creo que deberías de preguntarselo a la gente de Borland

O a Niklaus Wirth; a fin de cuentas Delphi está basado en su lenguaje y el Pascal original sólo admite tipos ordinales para la sentencia case.

// Saludos

[roman]

Y respecto a la pregunta original, si el combo tiene almacenados los meses en el orden natural entonces el procedimiento se puede hacer así

procedure NumeroMes(nombre:String);
begin
  if ComboBox.ItemIndex <> -1 then
    MesActual := ItemIndex + 1
  else
    ShowMessage('Error en Mes Seleccionado');
end;

// Saludos

[obiwuan]

Y mucho mejor, si en lugar de usar un procedimiento se usa una función, la cual, debe devolver 0 para el caso en que se produzca un error y suponiendo, además, que el combobox tenga los meses ordenados:

function NumeroMes: integer;
begin
result :=  ComboBox.ItemIndex + 1
end;

mucho más simple que todo lo expuesto hasta ahora.

NOTA: Pasar como parámetro el nombre del mes es una tontería si éstos están almacenados en el comboBox. Mejor usar el ComboBox como variable general del módulo.