Уроки по Delphi




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


   begin

      ReadLn(f,p11); // чтение результатов и промежутков баллов из файла

      ReadLn(f,p12);

      ReadLn(f,s1);

      ReadLn(f,p21);

      ReadLn(f,p22);

      ReadLn(f,s2);

      ReadLn(f,p31);

      ReadLn(f,p32);

      ReadLn(f,s3);

      ReadLn(f,p41);

      ReadLn(f,p42);

      ReadLn(f,s4);

      if (QUser>=p11) and (QUser<=p12) then ShowMessage(s1); // выявление попадания в тот или иной промежуток и выдача результата теста

      if (QUser>=p21) and (QUser<=p22) then ShowMessage(s2);

      if (QUser>=p31) and (QUser<=p32) then ShowMessage(s3);

      if (QUser>=p41) and (QUser<=p42) then ShowMessage(s4);

      Close; // закрыть программу

   end else LoadQuestion; // если кол-во вопросов не исчерпано, то прочитать из файла новый вопрос (переход к процедуре чтения)

end;

Далее, для того, чтобы эта процедура вызывалась при нажатии и на другие кнопки (Button2 - Button4) нужно для каждой отдельно выбранной кнопке в инспекторе объектов установить реакцию на событие OnClick из ниспадающего списка в Button1Click.

И последнее, для завершения работы надо корректно закрыть открытый нами ранее файл. Это делается с помощью события Form1Close (выбрать компонент Form1 и создать процедуру OnClose) с помощью признака открытого файла FOpen написать одну строку внутри процедуры:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if FOpen then CloseFile(f); // если файл был открыт, то закрыть его

end;

Ваша программа готова к работе.

Рассмотренную программу вместе с прилагаемым тестом можно забрать по этой ссылке (7,5КБ).

С уважением, ведущий уроков Semen semen@krovatka.net




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