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

Базы данных   Найти похожие ветки 

← →
seter   (2002-10-24 11:10) [0]

Господа подскажите пожалуйста как правильно написать добавление и что здесь неправильно:
if rb1.Checked=false then ADOTable1["rb1"]:="0" else ADOTable1["rb1"]:="1";
if rb2.Checked=false then ADOTable1["rb1"]:="0" else ADOTable1["rb1"]:="2";
if rb3.Checked=false then ADOTable1["rb1"]:="0" else ADOTable1["rb1"]:="3";
if rb4.Checked=false then ADOTable1["rb1"]:="0" else ADOTable1["rb1"]:="4";
if rb5.Checked=false then ADOTable1["rb1"]:="0" else ADOTable1["rb1"]:="5";
if rb6.Checked=false then ADOTable1["rb1"]:="0" else ADOTable1["rb1"]:="6";

---

← →
Sergey13 ©   (2002-10-24 11:26) [1]

1.Не понятно где тут добавление.
2.Попробуй почитать хелп на тему "if... else" или "case"
В твоем варианте только при rb6.Checked=true ADOTable1["rb1"]:="6" в остальных случаях всегда будет 0. Потом, rb 1..6 это что? RadioButton? Тогда может легче использовать RadioGroup?

---

← →
MegaBass ©   (2002-10-24 11:33) [2]

легче бедет с TRadioGroup:

with RadioGroup1 do
if itemIndex > 0 then
ADOTable1.fields["rb1"] := 0
else
ADOTable1.fields["rb1"] := itemIndex + 1;


---

← →
seter   (2002-10-24 11:33) [3]

Sergey13. использую RadioButton. Поймите меня правильно всетаки Delphi изучаю 1 месяц. Я просто не знаю как сделать чтобы в остальных случаях не было нулей. И к если не сложно подскажите как использовать RadioGroup?

---

← →
MegaBass ©   (2002-10-24 11:34) [4]

sorry if ... < 0 then

---

← →
seter   (2002-10-24 11:35) [5]

MegaBass сейчас попробую заранее спасибо

---

← →
seter   (2002-10-24 11:43) [6]

MegaBass а как нибудь по другому нельзя (у меня очень используются FlatGroupBox).

---

← →
Sergey13 ©   (2002-10-24 11:49) [7]

2seter (24.10.02 11:33)
>Я просто не знаю как сделать чтобы в остальных случаях не было нулей.
В твоем случае (через радиобатоны) надо было так
if rb1.Checked then ADOTable1["rb1"]:="1"
else if rb2.Checked then ADOTable1["rb1"]:="2"
else if rb3.Checked then ADOTable1["rb1"]:="3"
else if rb4.Checked then ADOTable1["rb1"]:="4"
else if rb5.Checked then ADOTable1["rb1"]:="5"
else if rb6.Checked then ADOTable1["rb1"]:="6"
else ADOTable1["rb1"]:="0";
Это хорошо описано в хелпе.
Читайте доки - они рулез. 8-)

---

← →
seter   (2002-10-24 12:02) [8]

спасибо большое SERGEY13

---

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

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



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