Обобщенный метод преобразования целочисленных значений в перечисляемые типы в Delphi

Delphi , Синтаксис , Типы и Переменные

Разработчики, работающие с языками программирования, основанными на C, часто сталкиваются с необходимостью преобразования целочисленных значений в значения перечислений (enum). В языке Delphi, который также использует концепцию перечислений, возникает похожая задача. В данной статье мы рассмотрим, как можно обобщить код для преобразования целых чисел в значения перечислений, чтобы избавиться от дублирования кода и упростить поддержку проекта.

Проблема и вопрос

Разработчик имеет функцию для преобразования целых чисел в значения перечисления, но хочет обобщить этот код, чтобы использовать его для разных типов перечислений. В частности, разработчик ищет способ определить базовый класс для перечислений, аналогичный TObject для классов, чтобы можно было легко проверить, является ли объект перечислением определенного типа.

Подход с использованием генерариков

Современные версии Delphi поддерживают генерарики, что позволяет создать обобщенный помощник для преобразования целочисленных значений в значения перечислений. Пример такого помощника:

uses
  System.SysUtils, TypInfo;

Type
  TEnumHelp<TEnum> = record
  type
    ETEnumHelpError = class(Exception);
    class function Cast(const Value: Integer): TEnum; static;
  end;

class function TEnumHelp<TEnum>.Cast(const Value: Integer): TEnum;
var
  typeInf: PTypeInfo;
  typeData: PTypeData;
begin
  typeInf := PTypeInfo(TypeInfo(TEnum));
  if (typeInf = nil) or (typeInf^.Kind <> tkEnumeration) then
    raise ETEnumHelpError.Create('Not an enumeration type');
  typeData := GetTypeData(typeInf);
  if (Value < typeData^.MinValue) then
    raise ETEnumHelpError.CreateFmt('%d is below min value [%d]', [Value, typeData^.MinValue])
  else
  if (Value > typeData^.MaxValue) then
    raise ETEnumHelpError.CreateFmt('%d is above max value [%d]', [Value, typeData^.MaxValue]);
  case SizeOf(TEnum) of
    1: pByte(@Result)^ := Value;
    2: pWord(@Result)^ := Value;
    4: pCardinal(@Result)^ := Value;
  end;
end;

Пример использования:

Type
  TestEnum = (aA, bB, cC);
var
  e: TestEnum;
...
e := TEnumHelp<TestEnum>.Cast(2);  // e = cC

Ограничения

Существует ограничение: перечисления, которые не являются непрерывными или не начинаются с нуля, не имеют информации RTTI (Runtime Type Information). Это связано с тем, что для фиксированных перечислений не возвращаются свойства RTTI. Подробнее об этом можно узнать в ответе на Stack Overflow: RTTI properties not returned for fixed enumerations: is it a bug?.

Заключение

Использование генерариков позволяет создать мощный инструмент для обобщения преобразования целых чисел в значения перечислений, что упрощает поддержку и уменьшает вероятность ошибок. Однако важно помнить об ограничениях, связанных с RTTI, и учитывать их при проектировании приложений.

Этот метод особенно полезен для разработчиков, использующих более новые версии Delphi, поддерживающие генерарики.

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

Обобщенный метод преобразования целочисленных значений в перечисляемые типы в Delphi, используя генерарики для упрощения и устранения дублирования кода.

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

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

:: Главная :: Типы и Переменные ::