Королевство Дельфи"Knowledge itself is power"
F.Bacon
 Лицей
  
Главная
О лицее

Список семинаров

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
 
 14:20 Den Sarych
 
 
Во Флориде и в Королевстве сейчас  14:27[Войти] | [Зарегистрироваться]

Обсуждение материала
Перечислимые типы данных, определяемые пользователем
Полный текст материала


Другие публикации автора: Andrew Fionik

Цитата или краткий комментарий:

«... В данной лекции мы познакомимся с перечислимыми типами данных. ...»


Важно:
  • Страница предназначена для обсуждения материала, его содержания, полезности, соответствия действительности и так далее. Смысл не в разборке, а в приближении к истине :о) и пользе для всех.
  • Любые другие сообщения или вопросы, а так же личные эмоции в адрес авторов и полемика, не относящаяся к теме обсуждаемого материала, будут удаляться без предупреждения авторов, дабы не мешать жителям нормально общаться.
  • При голосовании учитывайте уровень, на который расчитан материал. "Интересность и полезность" имеет смысл оценивать относительно того, кому именно предназначался материал.
  • Размер одного сообщений не должен превышать 5К. Если Вам нужно сказать больше, сделайте это за два раза. Или, что в данной ситуации правильнее, напишите свою статью.
Всегда легче осудить сделанное, нежели сделать самому. Поэтому, пожалуйста, соблюдайте правила Королевства и уважайте друг друга.



Добавить свое мнение.




Смотрите также материалы по темам:
[Перечислимые типы]

Комментарии жителей
Отслеживать это обсуждение

Всего сообщений: 6

15-08-2005 04:04
А зачем цикл для определения значения по номеру?
Ведь можно обойтись двумя сравнениями и приведением типа:
If ColorIndex < Ord(Low(TRainBow)) then Raise Exception.create(.....);

If ColorIndex > Ord(High(TRainBow)) then Raise Exception.create(.....); либо ColorIndex :=Ord(High(TRainBow))) в зависимости от условий.

Color:= TRainBow(ColorIndex);


28-07-2005 07:02
сообщение от автора материала
TRainbow(0) будет = Red
Читайте внимательнее предыдущие посты. Что будет

TRainbow(10000)

?
WriteLn(GetEnumName(TypeInfo(TRainbow),Ord(Color))
Это конечно интересно, но до RTTI эти лекции еще пока что не дошли. Кроме того есть разница между тем как называется идентификатор и тем что хочется вывести пользователю. Быть может в программе идентификаторы будут такие:

TRainbow=(rcRed, rcOrange, rcYellow, rcGreen, rcAzure, rcBlue, rcViolet);


...а выводить хочется именно "Red", а не "rcRed".


27-07-2005 01:11
Проблема состоит в том, что не существует стандартной функции библиотеки, позволяющей получить значение перечислимого типа по его порядковому номеру.
Элементарно: TRainbow(0) будет = Red
Вместо case Color of
Red: WriteLn('Red');
Orange: WriteLn('Orange');
Yellow: WriteLn('Yellow');
Green: WriteLn('Green');
Azure: WriteLn('Azure');
Blue: WriteLn('Blue');
Violet: WriteLn('Violet');
end;

хорошо использовать
WriteLn(GetEnumName(TypeInfo(TRainbow),Ord(Color))


21-07-2005 00:47
сообщение от автора материала
Данный пример затрагивает уже следующую тему, про массивы, но вот эта программа сломается на WriteLn(RC[Color]) хотя не должна, бы.

program ordinaltypes;
{$APPTYPE CONSOLE}
uses
SysUtils;
type

TRainbow=(Red, Orange, Yellow, Green, Azure, Blue, Violet);
TRainbowColors=array[TRainbow] of String;

const
RC:TRainbowColors=('Red','Orange','Yellow','Green','Azure','Blue','Violet');

var
Color:TRainbow;

begin
Color:=TRainbow(100);
WriteLn(RC[Color]);
ReadLn;
end.


21-07-2005 00:35
Потому что при таком присваивании его корректность не проверяется. Например:

Color := TRainbow(100);

... синтаксически корректен и будет выполнен, но при этом, скажем, выражение (Color>=Low(TRainbow)) and (Color<=High(TRainbow)) будет ложным, чего не должно быть в принципе.

Сообщение не подписано


20-07-2005 15:47

// while Ord(Color)<>ColorIndex do Color:=Succ(Color);
  Color := TRainbow(ColorIndex);

Хммм... А я всегда пользуюсь вместо цикла приведением типов. Объясните мне почему я не прав, пожалуйста...


Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Зимой — белый, летом — серый. Кто?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования