Как записать в таблицу 4 эдита в цикле

@botaniq09 · Регистрация: 20.06.2010

Author24 — интернет-сервис помощи студентам

Delphi

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

@SAMZ · 07.07.2010, 18:52

У тебя в теле цикла всегда отрабатывает

Delphi

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;

При этом в любой всавляемой записи в конечном итоге вставится значение, содержащее в
form7.Edit5 .Text
По-видимому задание значения поля
DataModule2.ODS_AnswerANSWER.AsString
тебе небходимо реализовать в зависимости от значения параметра цикла

	07.07.2010, 18:52

Опции темы