powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Enumaration в Writeln в D10.3 даёт ошибку, а в FreePascal не даёт
5 сообщений из 5, страница 1 из 1
Enumaration в Writeln в D10.3 даёт ошибку, а в FreePascal не даёт
    #39900686
AdamAry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
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
...
Рейтинг: 0 / 0
Enumaration в Writeln в D10.3 даёт ошибку, а в FreePascal не даёт
    #39900696
ziv-2014
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AdamAry,
Привести к integer
...
Рейтинг: 0 / 0
Enumaration в Writeln в D10.3 даёт ошибку, а в FreePascal не даёт
    #39900873
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AdamAry,

Сделать массив

Код: pascal
1.
2.
3.
4.
const 
  BeverageNames: array [Beverage] of string = ('coffee', 'tea', ...);
...
  writeln('You can drink ', BeverageNames[drink]);
...
Рейтинг: 0 / 0
Enumaration в Writeln в D10.3 даёт ошибку, а в FreePascal не даёт
    #39900877
Фотография X-Cite
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: pascal
1.
writeln('You can drink ', TRttiEnumerationType.GetName<beverage>(drink));
...
Рейтинг: 0 / 0
Enumaration в Writeln в D10.3 даёт ошибку, а в FreePascal не даёт
    #39900887
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: pascal
1.
writeln('You can drink ', GetEnumName(TypeInfo(beverage), Ord(drink)));
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Enumaration в Writeln в D10.3 даёт ошибку, а в FreePascal не даёт
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]