VPF::Перечислимый тип, (out of bound) - Форум программистов

RinOSpro

Дата 15.7.2010, 11:41 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Всем привет)

Возник вопрос по поводу перечислимых типов. Точнее преобразования Integer -> "Перечислимый тип".

И так, объявлен тип TLMsgType = (ltError = 0, ltWarning, ltInformation, ltDebug);

сохраняю его в БД преобразованием в Integer, Integer(LMsgType). При загрузке и БД. Там может отказаться любое число которое не входит в диапазон (а входящие данные нужно проверять).

Вопрос в том как наиболее эффективно проверять входит в это число в диапазон Перечислимого типа или нет? Типов много... поэтому собственно и вопрос...

Наиболее простой вариант я написал

Код


function isRangeInType(const AValue: TLMsgType): Boolean; overload;
begin
//  Result := not (AValue < Low(TLMsgType)) or (AValue > High(TLMsgType)); представьте, так не работает)) (всегда возвращает true) сам в шоке ну не суть) ниже работающая версия

  if (AValue < Low(TLMsgType)) or (AValue > High(TLMsgType)) then
    Result := False
  else
    Result := True;
end;

casinosoftguru

Дата 15.7.2010, 14:37 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 138
Регистрация: 22.12.2008

Репутация: нет
Всего: нет

Цитата

// Result := not (AValue < Low(TLMsgType)) or (AValue > High(TLMsgType)); представьте, так не работает)) (всегда возвращает true) сам в шоке ну не суть) ниже работающая версия

может быть потому что надо так smile

Код


Result := not (AValue < Low(TLMsgType)) or not (AValue > High(TLMsgType));

Это сообщение отредактировал(а) casinosoftguru - 15.7.2010, 14:38

Keeper89

Дата 15.7.2010, 16:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Думаю логично будет проверять Integer после чтения из БД:

Код


function isRangeInType(const AValue: Integer): Boolean;
begin

  Result := AValue in [Integer(Low(TLMsgType))..Integer(High(TLMsgType))];
end;

или

Код


function isRangeInType(const AValue: Integer): Boolean;
begin

  Result := (AValue >= Integer((Low(TLMsgType))) and (AValue <= Integer((High(TLMsgType)));
end;

А в коде вызывать:

Код


if isRangeInType(a) then
  b := TLMsgType(a)
else
  //

Это сообщение отредактировал(а) Keeper89 - 15.7.2010, 16:54

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

RinOSpro

Дата 15.7.2010, 17:28 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Цитата(casinosoftguru @ 15.7.2010, 14:37

)

может быть потому что надо так код Pascal/Delphi1:Result := not (AValue < Low(TLMsgType)) or not (AValue > High(TLMsgType));

Логически оно такое же как и я написал, и так же возвращает true в любом случае... может глюк? (Delphi 7)

Цитата(Keeper89 @ 15.7.2010, 16:52

)

Думаю логично будет проверять Integer после чтения из БД:

Цитата(RinOSpro @ 15.7.2010, 11:41

)

Вопрос в том как наиболее эффективно проверять входит в это число в диапазон

если много типов то это становиться не удобным... см. ниже

Цитата(Keeper89 @ 15.7.2010, 16:52

)

Result := AValue in [Integer(Low(TLMsgType))..Integer(High(TLMsgType))];

А вот за эту конструкцию спасибо!

Только если скажем у нас много перечислений... то для каждой придется написать кучу overload функций

Код


function isRangeInType(const AValue: TLMsgType): Boolean; overload;
begin
  Result := AValue in [Low(AValue)..High(AValue)];
end;

function isRangeInType(const AValue: TEnum1): Boolean; overload;
begin
  Result := AValue in [Low(AValue)..High(AValue)];
end;

function isRangeInType(const AValue: TEnum2): Boolean; overload;
begin
  Result := AValue in [Low(AValue)..High(AValue)];
end;

function isRangeInType(const AValue: TEnumN): Boolean; overload;
begin
  Result := AValue in [Low(AValue)..High(AValue)];
end;

Есть ли какая нибудь универсальная range-check функция? Или идеи... как бы такую написать

smile

Код


function isRangeInType(const AValue): Boolean;
begin
  .........
end;

Это сообщение отредактировал(а) RinOSpro - 15.7.2010, 17:34

Keeper89

Дата 15.7.2010, 21:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Цитата(RinOSpro @ 15.7.2010, 17:28

)

Только если скажем у нас много перечислений... то для каждой придется написать кучу overload функций

Да, думаю так и придется.

Это сообщение отредактировал(а) Keeper89 - 15.7.2010, 22:01

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

bems

Дата 18.7.2010, 23:19 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Функция

Код


uses
  TypInfo;

 function IsValInRange(Value: Integer; EnumType: PTypeInfo): Boolean;
 var pData: PTypeData;
 begin
 Assert(EnumType.Kind = tkEnumeration);
 pData := GetTypeData(EnumType);
 Result := Value in [pData.MinValue..pData.MaxValue]
 end;

Вызов

Код


if not IsValInRange(1, TypeInfo(Boolean))
   then raise Exception.Create('Покоцаная база данных. Ищи бекап.');

--------------------

Обижено школьников: 8

Демо

Дата 19.7.2010, 11:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Код


  TMyEnum=(meNone=10, meYes=1000, meNo=-1000);

Сдаётся мне, что самое простое - обрабатывать исключение.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »