Cómo se declara y usa el tipo "Enumeration" en Delphi

[dec]

Hola a todos,

Puede revisar este artículo de Delphi Basics y también este apartado de la documentación de Embarcadero Delphi. Este sería un ejemplo con varios "tipos enumerados":

Código Delphi [-]
type
  TSound = (tsClick, tsClack, tsClock);
  TMyColor = (mcRed, mcBlue, mcGreen, mcYellow, mcOrange);
  Answer = (ansYes, ansNo, ansMaybe)

Arriba "TSound", "TMyColor", "Answer", son "enumeraciones". Así podría usarse una de ellas, por ejemplo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  Sound: TSound;
begin
  Sound := TSound.tsClick;

  //

  if Sound = TSound.tsClick then
    ShowMessage('Sound is tsClick');

  //

end;