| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Количество элементов
harisma © (2007-10-16 17:04:00)Есть некий перечислимый тип. Как узнать, сколько он имеет элементов?
begin...end (2007-10-16 22:47:00) [1]Способы [5] и [6] не будут работать для такого перечислимого типа:
type
TMyEnumType = (Two = 2, Three = 3);
> Ega23 © (16.10.07 17:26) [8]
Неа. Может и больше.
Ins (2007-10-16 17:33:00) [2]
> Легких путей мы не ищем :)
Так это для пионеров решение ;)
PS: Пардон, клинит...
Ega23 (2007-10-16 17:26:00) [3]
> Как узнать, сколько он имеет элементов?
меньше 256
Reindeer Moss Eater (2007-10-16 17:19:00) [4]Легких путей мы не ищем :)
Ins (2007-10-16 17:17:00) [5]Идея такая, дальше разберетесь...
uses TypInfo;
procedure TForm1.Button1Click(Sender: TObject);
var
TypeInf: PTypeInfo;
TypeData: PTypeData;
begin
TypeInf:=TypeInfo(Integer);
TypeData:=GetTypeData(TypeInf);
Caption:=IntToStr(TypeData^.MaxValue - TypeData^.MinValue);
end;
Reindeer Moss Eater (2007-10-16 17:16:00) [6]succ(Ord(High(TMyEnumType)))
Amoeba (2007-10-16 17:12:00) [7]
> harisma (16.10.07 17:04)
>
> Есть некий перечислимый тип. Как узнать, сколько он имеет
> элементов?
Посмотри на его объявление и сосчитай. В чем проблема то?
harisma (2007-10-16 17:12:00) [8]Версия 5.
Сергей М. (2007-10-16 17:07:00) [9]Зависит от версии Делфи.
Sonia (2007-10-16 17:05:00) [10]Length ?
| |
