Tipos de datos enumerados en Delphi

[liriko]

Muchas gracias por este ejemplo ultimo, me a hecho ver esto mucho mas claro,Salu2

[[maeyanes]]

Yo uso algo parecido a lo que hace HECTOR, pero sin usar Object.

He aquí como yo lo hago:

Código Delphi [-]
type
  TMiTipoNumerado = (tnUno, tnDos, tnTres);

// ...

procedure TMainForm.FormCreate(Sender: TObject);
begin
  // La lista de items se puede llenar en tiempo de diseño...
  ComboBox1.Add('Uno');
  ComboBox1.Add('Dos');
  ComboBox1.Add('Tres');
  ComboBox1.ItemIndex := 0
end;

procedure TMainForm.ComboBox1Change(Sender: TObject);
begin
  VariableDeTipoNumerado := TMiTipoNumerado(ComboBox1.ItemIndex)
end;

En este caso solo hay que tener cuidado que los items en el combobox tengan el mismo orden que en el tipo numerado.


Saludos...

[[Lepe]]

Código Delphi [-]
type
  TMiTipoNumerado = (tnUno= 665 , tnDos, tnTres);

Ahora ya son números enteros y tnDos tiene el valor 666.

saludos

[[maeyanes]]

Empezado por Lepe

Código Delphi [-]
type
  TMiTipoNumerado = (tnUno= 665 , tnDos, tnTres);

Ahora ya son números enteros y tnDos tiene el valor 666.

saludos

Tienes razón, pero a menos que quieras hacer algo extraño, harías lo de poner que tnUno sea igual a 665.

Yo lo hago de la forma en que indiqué y no me ha dado problemas hasta ahora...

La forma que indicó HECTOR, yo la usaría en caso de que el tipo numerado ya estuviera declarado y por alguna razón tenga la variante que indicas y no tuviera yo forma de modificarla; pero si es un tipo declarado de la forma normal, el método que uso es más sencillo de implementar (al menos para mi )...


Saludos...

[[Lepe]]

Reconozco que el hecho de usar 665 como valor inicial es un poco diabólico .

Quería enfatizar el hecho de que un tipo enumerado pueda tener un valor distinto a cero o uno.

Siempre estamos usando un tipo enumerado, pero con otras funcionalidades; A modo de constante, de índice de un Array, de tipo entero que puede utilizarse en expresiones matemáticas, etc.

saludos