| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как проверить вхождение числа в перечисляемый тип? [D7, WinXP]
Aleksandr. © (2005-06-22 17:23:00)Объявляется тип
type
TMyType = (mt1 = 1, mt2=20, mt3=35);
создается функция, которая целое число должна проверить для приведения типов, является ли оно входящим в этот тип:
function IsInType(const I : integer) : boolean;
var
x : integer;
begin
Result:=false;
for x:=Ord(Low(TMyType)) to Ord(High(TMyType)) do
if I=X then begin
Result:=true;
Break
end
end;
Но для данной функции тип должен быть заведомо известен (TMyType).
А можно ли сделать универсальную функцию, которой вторым параметром как-то загнать сверяемый тип?
evvcom (2005-06-22 17:48:00) [1]
> Придется в массив переделать...
Лучше в множества-константы, если я правильно понял, что надо.
evvcom (2005-06-22 17:47:00) [2]
> а где здесь множества? ;)
Видимо автор хочет проверять принадлежность числа тому или иному перечисляемому типу, хотя проще проверить на вхождение в то или иное множество, причем даже без дополнительной функции, работающей по принципу перебора.
Aleksandr. (2005-06-22 17:45:00) [3]спасибо. Придется в массив переделать...
evvcom (2005-06-22 17:34:00) [4]А вообще, конечно, не представляю для чегоэто надо. Лучше обратить внимание на [3].
jack128 (2005-06-22 17:33:00) [5]Aleksandr. (22.06.05 17:28) [2]
И как сделать перебор пользовательского типа, чтобы он в цикле for переходил не на x+1, а сразу на следующее значение типа (то есть с 1 на 20, а не 2)?
в твоем случае
var
x: TMyType;
for x := low(TMyType) to high(TMyType) do
begin
i := Integer(TMyType);
...
end;
Digitman © (22.06.05 17:30) [3]
а где здесь множества? ;)
jack128 (2005-06-22 17:31:00) [6]Aleksandr. (22.06.05 17:23)
нет. Для реализации подобной функции нужна RTTI информация, для перечисляемых типов, у которых явно задается порядковый номер элементов, такая информация не генерится. Так что каждый раз придется вручную проверку на допустимость значения делать..
Digitman (2005-06-22 17:30:00) [7]оператор IN для множеств уже упразднили ?
evvcom (2005-06-22 17:30:00) [8]Посмотри в справке TTypeInfo и пример к GetEnumValue function. Похоже это то, что тебе надо.
Digitman (2005-06-22 17:28:00) [9]
> для приведения типов
приведением простых типов занимается компилятор, и речи о ран-тайм не идет и идти не может
Aleksandr. (2005-06-22 17:28:00) [10]Тьфу, не туды тыркнул.
И как сделать перебор пользовательского типа, чтобы он в цикле for переходил не на x+1, а сразу на следующее значение типа (то есть с 1 на 20, а не 2)?
| |
