Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 2 677

Раздел: Delphi » Программирование баз данных (БД)
/ вопрос открыт /

Доброго времени суток, уважаемые эксперты! Пишу программу тестирования ...пробую писать процедуру добавления ответа уже на выбранный пользователем ответ из РадиоГруппы ... дело в том что вопросы перемешаны и отображаются в случайном порядке радиокнопки ... порядок следования хранится в массиве. В таблице Answer (ответы) есть два поля ARight (Поле с правильными ответами) и ASet (поле с ответами которые дал пользователь) которые в дальнейшем буду сравнивать...

в цикле делаю следущее ..но отрабатывает неправильно хотя и записывает в поле в ASet которое не соответствует радио кнопки выбранным пользователем:

Приложение:
  1.  
  2. ...
  3.  
  4.  
  5. i := 1;
  6. j := 0
  7. while not TestData.ADOQuery4.Eof and (i<ACount) do
  8. begin
  9.  
  10.  
  11. then begin
  12. TestData.ADOQuery4.Edit;
  13. TestData.ADOQuery4.FieldsByName['ASet'].AsInteger:=1;
  14. TestData.ADOQuery4.Post;
  15. end else
  16. TestData.ADOQuery4.Next;
  17. Inc(i);
  18. Inc(j);
  19. end;
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29. while not TestData.ADOQuery4 and (i<ACount)
  30.  
  31. if DBRadioGroup1.Buttons[DBRadioGroup1.ItemIndex]
  32. then x:=DBRadioGroup1.ItemIndex;
  33. if i<>x then
  34. DBRadioGroup1.Values.Add('0')
  35. else DBRadioGroup1.Values.Add('1');
  36.  
  37. inc(i);
  38.  
  39.  
  40.  
  41.  


Motor Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Motor (статус: Посетитель)
Вопрос отправлен: 23 апреля 2009, 23:22
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 22 февраля 2025, 11:38
Выполнено за 0.03 сек.