Уроки по Delphi



         

Урок21. Программа психологических тестов - часть 4


Для улучшения восприятия вопросов и ответов для этих же компонентов установите свойство шрифта Font на свой вкус.

Последний компонент - OpenDialog для открытия файла вопросов. Можете установить фильтр для открываемых файлов, например только для файлов с расширением TES для того, чтобы случайно не открыть другой, не файл теста.

Окончательный внешний вид окна вашей программы смотрите на этом рисунке.

02.GIF (2798 bytes)

Теперь примемся за написание кода программы.

Объявим несколько глобальных переменных, которые будут действительны за пределами одного модуля.

После слова implementation

в редакторе кода пишем:

Var f: TextFile; // текстовый файл теста

    FOpen: Boolean; // признак открытого файла

    TestName: String; // название теста

    QCurrent: Integer; // текущий номер вопроса

    QCount: Integer; // всего вопросов в тесте

    QUser: Integer; // сумма баллов

В инспекторе объектов выбираем компонент Form1 и для события (страница Events) OnShow (сработает до отображения окна на экране) пишем:

procedure TForm1.FormShow(Sender: TObject);

begin

FOpen:=false; // снимаем признак открытого файла (мы его еще не открывали)

if OpenDialog1.Execute then // если файл теста выбран,

   begin // то:

      AssignFile(f,OpenDialog1.FileName); // привязка имени выбранного файла в диалоге к файловой переменной

      {$I-} // отключения автоматической обработки ошибок ввода-вывода

      Reset(f); // открываем файл

      {$I+} // возвращаем опцию контроля ошибок ввода-вывода

      if IOResult<>0 then // если была ошибка открытия файла, то

         begin

            MessageDLG('Ошибка открытия файла',mtError,[mbOk],0); // сообщение на экран

            Application.Terminate; // завершить работу программы




Содержание  Назад  Вперед