program Enumeration;
type
beverage = (coffee, tea, milk, water, coke, limejuice);

var
drink:beverage;

begin
   writeln('Which drink do you want?');
   drink := limejuice;

   writeln('You can drink ', drink); {[color=red]здесь в D10.3 даёт ошибку, а в FreePascal не даёт, как заставить работать в Delphi 10.3?[/color]}
    readln;
end.

[dcc32 Error] Enumeration.dpr(12): E2054 Illegal type in Write/Writeln statement

const 
  BeverageNames: array [Beverage] of string = ('coffee', 'tea', ...);
...
  writeln('You can drink ', BeverageNames[drink]);

writeln('You can drink ', TRttiEnumerationType.GetName<beverage>(drink));

writeln('You can drink ', GetEnumName(TypeInfo(beverage), Ord(drink)));

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы