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

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

Флаги [D7]

ккк ©   (2008-02-24 20:28:00) 

const
 radiobtn1ch = $0001;
 radiobtn2ch = $0002;
var
 Flags: Word;
begin
 Flags := $0001;
 RadioButton1.Checked := Flags and radiobtn1ch = radiobtn1ch;
 RadioButton2.Checked := Flags and radiobtn2ch = radiobtn2ch;
end;
Этим кодом проверяются "флаги". Но как сделать обратный код, без if'ов? -- Я хочу, в зависимости от положения RadioButton1 и RadioButton2 получить нужные флаги в Word'е.

Подскажите.

---

Сергей М.   (2008-02-24 21:25:00) [1]

Flags := Flags or (radiobtn Nch and Wordbool(RadioButton N.Checked))

---

Leonid Troyanovsky   (2008-02-24 21:17:00) [2]

> Johnmen ©   (24.02.08 21:10) [5]

> А модифицирующихся анонимов - тем более.

Т.е., "Запрещается" п.5 :)

--
Regards, LVT.

---

Anatoly Podgoretsky   (2008-02-24 21:10:00) [3]

> ант.к  (24.02.2008 21:03:03)  [3]

Тут if не избежать, разве что цикл опроса компонент, но это будет хуже.

---

Johnmen   (2008-02-24 21:10:00) [4]

А модифицирующихся анонимов - тем более.

ЗЫ
OR

---

ант.к   (2008-02-24 21:03:00) [5]

> Чего ты хочешь?


Я хочу избежать if'ов тут:
Flags := 0;
...
if RadioButton1.Checked then Flags := Flags and radiobtn1ch;
if RadioButton2.Checked then Flags := Flags and radiobtn2ch;


---

Leonid Troyanovsky   (2008-02-24 20:35:00) [6]

> ккк   (24.02.08 20:28)  

http://www.delphimaster.ru/forums.shtml
Нарушаются "Запрещается": 2 and 4.

А анонимов мы просто не любим.

--
Regards, LVT.

---

Anatoly Podgoretsky   (2008-02-24 20:33:00) [7]

> ккк  (24.02.2008 20:28:00)  [0]

Чего ты хочешь?

---

Наверх