Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 02.07.2011, 12:25   #1
HyperZen
Пользователь
 
Аватар для HyperZen
 
Регистрация: 20.07.2010
Сообщений: 45
По умолчанию Некорректная работа программы...

Приветствую!
Нашел на сайте (st-programming.ru) чудо-исходник избитой темы - программы для тестирования знаний.
Автор сего, видать нарочно, допустил несколько ошибок в коде (не хватает пары деструкторов(?)), в ходе выполнения этой программы все проходит замечательно до того момента, пока пользователь не нажмет кнопку "Начать тест заново" - лезет ошибка.
Дописываю деструктор - не помогает.

Создание тестов работает нормально. А вот сам тест - при попытке "Начать заново" выдает критическую ошибку.

Помогите кто чем может!
За ранее благодарен!
Вложения
Тип файла: zip test_(2).zip (601.9 Кб, 17 просмотров)
Плохого человека должно быть мало...
HyperZen вне форума
Старый 02.07.2011, 15:49   #2
kangreon
Форумчанин
 
Аватар для kangreon
 
Регистрация: 03.04.2009
Сообщений: 305
По умолчанию

Возможно переменная Questions где-то уничтожается.

В процедуре procedure TMainForm.LoadQuestion; создайте ее заново.

Код:
Questions := TObjectList.Create;
В итоге получится:
Код:
procedure TMainForm.LoadQuestion;
var
  tmpQuestion: TStQuestion;
  tmpQuestions: TObjectList;
  i, max: integer;
begin
  Questions := TObjectList.Create;
  Questions.Clear; // Очищаем список вопросов
  // Создаем врменные список для хранения активных
  // вопросов
  tmpQuestions := TObjectList.Create;
Все должно работать.
kangreon вне форума
Старый 03.07.2011, 10:46   #3
HyperZen
Пользователь
 
Аватар для HyperZen
 
Регистрация: 20.07.2010
Сообщений: 45
По умолчанию

Цитата:
Сообщение от kangreon Посмотреть сообщение
Возможно переменная Questions где-то уничтожается.

В процедуре procedure TMainForm.LoadQuestion; создайте ее заново.

Код:
Questions := TObjectList.Create;
Огромное спасибо! Все действительно заработало!
Плохого человека должно быть мало...
HyperZen вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Некорректная работа WPF _-Re@l-_ WPF, UWP, WinRT, XAML 0 19.04.2011 16:05
Некорректная работа с файлами Gapro Общие вопросы Delphi 13 24.03.2011 08:39
Некорректная работа программы при формировании массива @Manya@ Общие вопросы C/C++ 13 22.04.2010 21:40
Некорректная работа Ucoz.ru docbrain WordPress и другие CMS 7 31.03.2010 11:26
Некорректная работа потока 3D Hunter Общие вопросы Delphi 7 09.03.2009 10:51