case con strings

[molinero1]

Hola, me gustaría utilizar un case para asignarle a cada mes, un numero. El mes lo recojo con una variable, y esta la pongo en case mes of. Pero me dice que ordinal type required, porque me saldra ese error? y en ese caso, como lo puedo solucionar?

[dec]

Hola,

El error te "sale" porque el "case" de Delphi no admite tipos que no sean ordinales. Podrías utilizar sin problemas el número de mes (1..12) pero no su nombre. Como no fuera que hicieras plantearas un tipo enumerado con los nombres de los meses... es decir:

Código Delphi [-]
type
  TMeses = (mEnero, mFebrero, mMarzo, mAbril, {...});

De este modo ya sí que podrías hacer algo como:

Código Delphi [-]
var
  mes: TMeses;
{...}
begin
  case mes of
    mEnero: ;
    mFebrero: ;
    {...}
  end;
end;