| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как в [ ] впихнуть отрицательные значения? [D5]

De ©   (2006-01-30 18:02:00) 

в '[ ]' требуется запихнуть отрицательные значения, нечто вроде:
if iVal in [20, 10, 10, -20, -9, 11] then ...
как реализовать кроме if (...) or (...) or ... then ...

спасибо

---

evvcom   (2006-01-31 10:31:00) [1]

Для начала определись с диапазоном возможных значений твоего "множества".

---

Германн   (2006-01-31 03:29:00) [2]

Имхо, GuAV ©   (30.01.06 18:39) [3] дал вполне правильное решение сабжа. Хотя и не "буквальное".

---

McSimm   (2006-01-30 23:50:00) [3]

> Leonid Troyanovsky ©   (30.01.06 18:22) [2]
>
> if Byte(iVal) in [10, 11, 20, Byte(-9), Byte(-20)] then
> ..


пожалуй не совсем корректноt решение, впрочем некорректна больше постановка вопроса.
ведь условие выполняется и для iVal = -9и для iVal = $F7а это может оказаться не совсем тем, что ожидалось.

---

GuAV   (2006-01-30 18:39:00) [4]

> как реализовать кроме if (...) or (...) or ... then ...

case iVal of
 -29, -9, 11, 10, 20: begin...end;
else
 ...
end;

---

Leonid Troyanovsky   (2006-01-30 18:22:00) [5]

> De   (30.01.06 18:02)  

> if iVal in [20, 10, 10, -20, -9, 11] then ...


if Byte(iVal) in [10, 11, 20, Byte(-9), Byte(-20)] then ..

--
Regards, LVT.

---

Джо   (2006-01-30 18:14:00) [6]

Внимательно прочитай раздел Setsв Справке.

---

Наверх