Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Вниз

Синтаксис языка Object Pascal 


jin   (2002-04-12 11:30) [0]

Граждане вот какой код есть
CodTxt=1;
CodPic=2;
CodWav=3;
........
MySet=[CodTxt,CodPic];
.............
Case i of
1..3: WriteLn("?") или CodTxt,CodPic,CodWav: WriteLn("?")
Вопрос такой в рамках синтаксиса языка возможна ли конструкция
аналогичная по смыслу (именно такая невозможна)
Case i of
MySet: WriteLn("?")
скажем за счет иного механизма констант, или синтаксического элемента в районе MySet позволяющее втолковать компилятору?



drpass   (2002-04-12 11:36) [1]

Можно так:
Case i of
CodTxt,CodPic: WriteLn("?")
Можно так: if i in MySet then...
Но операции со множествами в операторе case недопустимы



Digitman   (2002-04-12 11:40) [2]

Механизм генерации и управления множества в ОП для данной задачи никак не подходит. Здесь желательно использовать перечислимый тип :

type
TMySet = (CodTxt, CodPic, CodWav, ...);

var
MySet: TMySet;
..
case MySet of
CodTxt : ...;
CodPic : ...;
CodWav : ...;
else
...
end;

Компилятор автоматически пронумерует слева направо идент-ры, перечисленные в типе TMySet, начиная с 0. Если такой вариант не устраивает, то, наверно, придется отказаться от case..of и использовать не столь удобный if..then..else




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.019 c
14-81052          Наивный               2002-03-18 22:52  2002.04.25  
Пожалуйста помогите или дайте совет по этой теме!


1-80899           Демон                 2002-04-14 19:48  2002.04.25  
Как работать с иконкой в трэйбаре


1-81005           ДмитрийФ              2002-04-12 19:26  2002.04.25  
Разработка собственной компоненты


1-80976           Shadow77              2002-04-09 18:43  2002.04.25  
Приложение не должно быть видно в панели задач.


1-80916           Song                  2002-04-15 09:49  2002.04.25  
Чего-то с утра башка не варит:) Вообщем есть заполненный TreeView