Скачать: CL | DM;

Флаги   Найти похожие ветки 

← →
ккк   (2008-02-24 20:28) [0]

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"е.

Подскажите.

---

← →
Anatoly Podgoretsky ©   (2008-02-24 20:33) [1]

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

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

---

← →
Leonid Troyanovsky ©   (2008-02-24 20:35) [2]

> ккк   (24.02.08 20:28)  

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

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

--
Regards, LVT.

---

← →
ант.к   (2008-02-24 21:03) [3]

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


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


---

← →
Anatoly Podgoretsky ©   (2008-02-24 21:10) [4]

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

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

---

← →
Johnmen ©   (2008-02-24 21:10) [5]

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

ЗЫ
OR

---

← →
Leonid Troyanovsky ©   (2008-02-24 21:17) [6]

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

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

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

--
Regards, LVT.

---

← →
Сергей М. ©   (2008-02-24 21:25) [7]

Flags := Flags or (radiobtnNch and Wordbool(RadioButtonN.Checked))

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c