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

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

Delphi.int.ru Expert

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

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

#   

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


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

Подробнее »

Вопрос # 2 650

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

Здравствуйте! Пишу программу тестирования. Есть форма на ней одна кнопка Ответить , TWebBrowser для вывода вопросов из БД и радиокнопки для выбора ответов. На обработчик события нажатия кнопки Ответить я кидаю процедуру QuestGEN (n:integer); - процедура выборки случайного номера вопроса, где n - всего (кол-во) вопросов. Массив куда я сохраняю значения описан внешне .... я его "обнуляю" каждый раз при ShowForm и DestroyForm , т.е заполняю значениями "-1". Ниже привел пример процедуры которую пишу но она почему-то неправильно работает ...помогите пожалуйста исправить или подскажите как лучше с алгоритмом выборки.

Приложение:
  1. var
  2. QMass : array [1..100] of integer;
  3.  
  4. ...............
  5.  
  6. procedure TTestForm.QuestGen(N:integer);
  7. var
  8. i,j,qnum : integer;
  9. fnd:boolean;
  10. begin
  11. fnd:=FALSE;
  12. Randomize;
  13.  
  14. showmessage(IntToStr(qnum));
  15. for i:=1 to QCOUNT do
  16. begin
  17. if QMass[i] = qnum
  18. then fnd:=TRUE
  19. else fnd:=FALSE;
  20. end;
  21.  
  22.  
  23. else QMass[i]:=qnum;
  24.  
  25. end;
  26.  
  27.  
  28. ///////////////////////////////////////////
  29. procedure TTestForm.FormShow(Sender: TObject);
  30. var
  31. i:integer;
  32. begin
  33.  
  34.  
  35.  
  36. for i:=1 to 100 do
  37. begin
  38.  
  39. end;
  40.  
  41. end;
  42.  
  43.  
  44.  
  45. procedure TTestForm.FormDestroy(Sender: TObject);
  46. var
  47. i:integer;
  48. begin
  49.  
  50.  
  51.  
  52.  
  53. for i:=1 to 100 do
  54. begin
  55.  
  56. end;
  57. end;
  58.  


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

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


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

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

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