Обработка Перечислений в Delphi: Использование RTTI для Валидации Диапазонов

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

Перечисления (enumerations) в Delphi играют важную роль, поскольку они позволяют работать с набором констант, которые могут представлять различные состояния, коды ошибок, уровни доступа и многое другое. Однако, как и в случае с другими типами данных, важно убедиться, что используемые значения перечисления находятся в допустимых пределах. Для этого можно использовать механизмы RTTI (Runtime Type Information) или TypeInfo в Delphi.

Проблема

Разработчик столкнулся с необходимостью валидации значений перечислений в рамках их допустимых диапазонов. В частности, при использовании перечислений вне их определенного диапазона, необходимо получать информацию об этом, аналогично тому, как это делается в среде разработки IDE (например, в окне Evaluate/Modify). Например, если значение выходит за пределы перечисления, нужно отобразить сообщение, подобное "(out of bound) 255".

Решение

Для решения этой задачи разработчик может использовать функцию GetTypeData(), которая возвращает более подробную информацию о типе данных, представленном объектом PTypeInfo. Пример использования этой функции в процедуре WriteEnum выглядит следующим образом:

procedure WriteEnum(const ATypeInfo: PTypeInfo; const AOrdinal: Integer);
var
  LTypeData: PTypeData;
begin
  LTypeData := GetTypeData(ATypeInfo);
  if (AOrdinal >= LTypeData.MinValue) and (AOrdinal <= LTypeData.MaxValue) then
    WriteLn(Format('Ordinal: %d = "%s"', [AOrdinal, GetEnumName(ATypeInfo, AOrdinal)]))
  else
    WriteLn(Format('Ordinal: %d (out of bound)', [AOrdinal]));
end;

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

Альтернативный путь

Также разработчик может использовать механизмы RTTI более высокого уровня, например, класс TRttiType, который является оболочкой для работы с информацией о типах. В частности, класс TRttiEnumerationType, являющийся наследником TRttiOrdinalType, предоставляет свойства MinValue и MaxValue, которые могут быть использованы для валидации значений перечисления.

Пример кода

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

program Project60;
{$APPTYPE CONSOLE}
{$R *.res}
uses
  System.SysUtils,  TypInfo;

Type
  TestEnum = (TestEnumA, TestEnumB, TestEnumC);

const
  TestEnumUndefined = TestEnum(-1);

procedure WriteEnum(const ATypeInfo: PTypeInfo; const AOrdinal: Integer);
var
  LTypeData: PTypeData;
begin
  LTypeData := GetTypeData(ATypeInfo);
  if (AOrdinal >= LTypeData.MinValue) and (AOrdinal <= LTypeData.MaxValue) then
    WriteLn(Format('Ordinal: %d = "%s"', [AOrdinal, GetEnumName(ATypeInfo, AOrdinal)]))
  else
    WriteLn(Format('Ordinal: %d (out of bound)', [AOrdinal]));
end;

var
  TestEnumTypeInfo: PTypeInfo;
begin
  try
    TestEnumTypeInfo := TypeInfo(TestEnum);

    WriteEnum(TestEnumTypeInfo, Ord(TestEnumA));
    WriteEnum(TestEnumTypeInfo, Ord(TestEnumB));
    WriteEnum(TestEnumTypeInfo, Ord(TestEnumC));
    WriteEnum(TestEnumTypeInfo, Ord(TestEnumUndefined));

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  ReadLn;
end.

Этот код демонстрирует, как можно использовать RTTI для получения информации о типе перечисления и валидации его значений, избегая ошибок доступа к памяти, таких как Access Violation, которые могут возникать при попытке доступа к несуществующим элементам перечисления.

Используя предложенные методы, разработчик может эффективно работать с перечислениями в Delphi, обеспечивая корректность и безопасность работы с ними.

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

Разработчик в Delphi использует RTTI для проверки значений перечислений на принадлежность к допустимому диапазону, чтобы избежать ошибок при доступе к несуществующим элементам перечисления.

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

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

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