enumerado

[bosterito]

hola a todos.Quisiera preguntar como definir un enumerado. Por Ej. (lunes, martes, miercoles, jueves, viernes). Desde ya muchas gracias.

[roman]

Código Delphi [-]
type
  TDia = (lunes, martes, miercoles, jueves, viernes);

// Saludos

[bosterito]

¿Y cuando es un enumerado de enteros?


Salu2

[dec]

Hola,

No sé yo si un "enumerado de enteros" tendría mucho sentido... parecería más bien que precisas un "Array de enteros", algo así:

Código Delphi [-]
TEnteros = array of integer;

De todos modos no sé si te confunde el hecho de que puedas tratar los tipos enumerados mediante sus índices, es decir, algo como esto es posible:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  dia: TDia;
begin
  dia := miercoles;
  if(dia = miercoles) then
    ShowMessage('Es miércoles');
end;

Pero también es posible algo como esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  dia: TDia;
begin
  dia := TDia(3);
  if(dia = miercoles) then
    ShowMessage('Es miércoles');
end;

Sin embargo en este último caso no verás el "Es miércoles", porque la enumeración se "indiza" comenzando desde cero, es decir, que "miércoles" correspondería al índice 2, y no al 3.

Empero, todavía podemos hacer esto:

Código Delphi [-]
type
  TDia = (lunes = 1, martes, miercoles, jueves, viernes);

procedure TForm1.Button1Click(Sender: TObject);
var
  dia: TDia;
begin
  dia := TDia(3);
  if(dia = miercoles) then
    ShowMessage('Es miércoles');
end;

De modo que ahora sí verías el "Es miércoles", puesto que estamos haciendo que el tipo enumerado "TDia" se indize comenzando desde 1 y no desde 0.

No sé si respondo a tu pregunta o qué.