спасибо всем за подсказку.
я решил задачу так:
Код:
procedure TStart_test.test();
var
i,j: Integer;
begin
DataModule2.OQuery.SQL.Add('select a.* from answer a where a.id_quest='+IntToStr(DataModule2.ODS_QuestID_QUEST.AsInteger));
DataModule2.OQuery.Execute;
j:=0;
while not DataModule2.OQuery.Eof do
begin
inc(j);
mass[j]:=DataModule2.OQuery.Field('ID_Answer');
otvet[j]:=DataModule2.OQuery.Field('Correct_Answer');
for i:=0 to ComponentCount-1 do
begin
if Components[i].Name = 'Edit' + IntToStr(j) then
begin
(Components[i] as TEdit).Text := DataModule2.OQuery.Field('Answer');
end;
end;
DataModule2.OQuery.Next;
end;
DataModule2.OQuery.Close;
DataModule2.OQuery.Clear;
DataModule2.ODS_Quest.Next;
end;
Admin: Пользуемся тегами, иначе последуют санкции!