Цитата:
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 не записывается в таблицу