Question

How to declare and use enum in Pascal

Answer 1

program EnumExample;

type
  // Declaring an enumeration
  TDay = (Monday, Tuesday, Wednesday, Thursday, Friday, Saturday, Sunday);

var
  Today: TDay;

begin
  // Assigning a value to the enum variable
  Today := Thursday;

  // Using the enum in a conditional statement
  if Today = Thursday then
    WriteLn('It''s Thursday!');

  // Iterating through enum values
  for Today := Monday to Sunday do
    WriteLn('Day: ', Ord(Today), ' - ', Today);
end.

   
     
(*
run:

It's Thursday!
Day: 0 - Monday
Day: 1 - Tuesday
Day: 2 - Wednesday
Day: 3 - Thursday
Day: 4 - Friday
Day: 5 - Saturday
Day: 6 - Sunday
     
*)

 

70+ SQL courses for beginners and professionals