[Botaniq]

Здравствуйте!
Есть форма. На ней выбирается тест, записывается запрос и 4 ответа.
Необходимо выбрать правильный ответ(выбор ответа-checkbox, при выборе должно записаться в базу слово 'Да'), а остальные ответы должны записаться со словом 'Нет'.
При заполнении всех полей на форме, после чего нажимается кнопка.
Как сделать чтобы к одному ответу записалось 'Да', а остальным 'Нет'???

[Botaniq]

Необходимо чтобы вставились 4 ответа на 1 вопрос в таблицу Answer(id_test,id_quest,id_answer,answer,correct_a nswer)

[Black Raider]

ну и в чем проблема?

Код:

if checkbox1.checked then st:='Да'
else st:='Нет';
{Тут Insert в таблицу можно вынести в процедуру Прос1 и передать значения в ее параметры}
if checkbox2.checked then st:='Да'
else st:='Нет';
{Тут Insert в таблицу либо вызов прос1}
if checkbox3.checked then st:='Да'
else st:='Нет';
{Тут Insert в таблицу либо вызов прос1}
if checkbox4.checked then st:='Да'
else st:='Нет';
{Тут Insert в таблицу либо вызов прос1}

либо:

В цикле перебираем компоненты если это компонент класса TCheckbox
то берем найденный компонент и проверяем checked и записываем.

[Botaniq]

а можно код с циклом по checkbox??
Плиз

[Black Raider]

Уже ж давали про Edit

Под рукой Дельфи нет так что если что подправьте:

Код:

for i:=0 to Form1.ComponentCount-1 do
begin
  if (form1.components[i] is TCheckbox) then begin
    if (form1.components[i] as TCheckbox).checked then  st:='ДА'
    else st:='Нет';
    //INSERT to TABLE
  end;
end;

где то так.

[Botaniq]

procedure TForm7.BitBtn5Click(Sender: TObject);
var
st: string;
i,j: integer;
begin
DataModule2.ODS_QuestID_TEST.AsInteger:=form7.DBLo okupComboBox1.KeyValue;
DataModule2.ODS_QuestQUEST.AsString:=form7.Memo1.L ines.Text;
DataModule2.ODS_Quest.Post;
for i:=0 to form7.ComponentCount-1 do
begin
if (form7.Components[i] is TCheckBox) then
begin
if (form7.Components[i] as TCheckBox).Checked
then st:='Да' else
st:='Нет';
DataModule2.ODS_Answer.Insert;
DataModule2.ODS_AnswerID_QUEST.AsInteger:=DataModu le2.ODS_QuestID_QUEST.AsInteger+1;
DataModule2.ODS_AnswerID_TEST.AsInteger:=DataModul e2.ODS_QuestID_TEST.AsInteger;
DataModule2.ODS_AnswerANSWER.AsString:=form7.Edit2 .Text;
DataModule2.ODS_AnswerANSWER.AsString:=form7.Edit3 .Text;
DataModule2.ODS_AnswerANSWER.AsString:=form7.Edit4 .Text;
DataModule2.ODS_AnswerANSWER.AsString:=form7.Edit5 .Text;
DataModule2.ODS_AnswerCORRECT_ANSWER.AsString:=st;
DataModule2.ODS_Answer.Post;
end;
end;
end;

при таком коде вставляется только edit5 4 раза, а то что было записано в edit2,edit3,edit4 не записывается в таблицу

[Black Raider]

При таком коде есстественно вставится edit5 -4 раза.
ибо :

DataModule2.ODS_AnswerANSWER.AsString:=form7.Edit2 .Text;
DataModule2.ODS_AnswerANSWER.AsString:=form7.Edit3 .Text;
DataModule2.ODS_AnswerANSWER.AsString:=form7.Edit4 .Text;
DataModule2.ODS_AnswerANSWER.AsString:=form7.Edit5 .Text;

параметру присваиваешь вначале edit2,потом edit3 и т.д. до edit5
и перед выполнением запроса параметр = edit5.

[Botaniq]

Не могли бы Вы помочь с кодом.
Я буду очень Вам признателен

[Black Raider]

в личку ответил.