Ошибка компилятора при получении информации о типе для перечисления с специфическими начальными значениями элементов

Delphi , Компоненты и Классы , RTTI

Объяснение ошибки "Type 'TMyEnum' has no typeinfo" при работе с перечислениями в Delphi

Работая с перечислениями в Object Pascal (Delphi), разработчики иногда сталкиваются с ситуацией, когда компилятор выдает ошибку E2134: Type 'TMyEnum' has no typeinfo. Это происходит, когда для элементов перечисления задаются начальные значения, отличные от тех, которые бы были присвоены компилятором по умолчанию. Рассмотрим подробнее, почему возникает эта ошибка и как с ней бороться.

Пример перечисления с нестандартными начальными значениями

В коде ниже определено перечисление TMyEnum, где первому элементу присвоено значение 1, а не стандартное 0:

type
  TMyEnum = (
    meFirstValue = 1,
    meSecondValue,
    meThirdValue
  );

При попытке получить информацию о типе, например, для вызова функции GetEnumName, которая требует использования TypeInfo, возникает ошибка:

GetEnumName(TypeInfo(TMyEnum), Ord(aValue));

Ошибка: E2134: Type 'TMyEnum' has no typeinfo

Почему возникает ошибка?

Компилятор Delphi генерирует информацию о типе для классов, если они компилируются с использованием опции компилятора $M или наследуются от классов, для которых была включена эта опция (например, TPersistent). Однако для перечислений существуют свои правила. Если для элементов перечисления заданы значения, отличные от тех, что назначает компилятор, то информация о типе не генерируется.

Решение проблемы

Чтобы решить проблему, можно добавить "неиспользуемые" элементы перечисления, чтобы "заполнить" нужные интервалы значений:

type
  TMyEnum = (
    meNOTUSED1,   //= 0
    meFirstValue, //= 1
    meSecondValue,
    meThirdValue
  );

Затем можно использовать подтип для "фильтрации" неиспользуемых начальных значений:

TValidMyEnum = meFirstValue..meThirdValue;

В случае, если в перечислении есть пропуски, использовать подтип не удастся, и потребуется другой подход, например, создание набора значений:

type
  TMyEnums = set of TMyEnum;
const
  meNOTUSED = [meNOTUSED1, meNOTUSED2]; // и так далее, как требуется
  meValidValues = [Low(TMyEnum)..High(TMyEnum)] - meNOTUSED;

Примеры кода для решения проблемы с использованием подтипа

Если в перечислении нет пропусков, можно использовать подтип для упрощения работы с перечислением:

type
  TMyEnumWithDummy = (
    meNOTUSED,
    meFirstValue,
    meSecondValue,
    meThirdValue
  );
  TMyEnum = Succ(meNOTUSED)..High(TMyEnumWithDummy);

Заключение

При работе с перечислениями в Delphi важно помнить о правилах генерации информации о типе. Если для элементов перечисления заданы нестандартные начальные значения, информация о типе не будет сгенерирована, и потребуется использовать альтернативные подходы, такие как добавление "неиспользуемых" элементов или создание наборов значений для проверки корректности элементов в runtime.

Создано по материалам из источника по ссылке.

В контексте рассматривается проблема с ошибкой 'Type 'TMyEnum' has no typeinfo' в Delphi при работе с перечислениями, когда заданы начальные значения, отличные от тех, что предоставляет компилятор, и предлагаются способы её решения.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: RTTI ::