Флаги

← →
ккк (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

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

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

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

--
Regards, LVT.

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

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