Базы данных

← →
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).

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

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