Тест на Delphi

[Nord18]

Доброго времени суток! Столкнулся с проблемой: сделал небольшой тест на тему Второй Мировой войны из 13 вопросов, всего в программе 16 форм, на последней форме должно выводиться поздравление или пожелание в зависимости от результатов тестирования. Написал всю программу, все работает. Только последняя форма почему то пустая. Так же на предпоследней форме выводится результат тестирования. Подскажите в чем проблема!! Спасибо!!

procedure TForm15.Button1Click(Sender: TObject);
begin
  form16.show;
  s:=0;
  if (Label4.Caption='ОТВЕТ ПРАВИЛЬНЫЙ') then s:=s+1;
  if (Label7Caption='ОТВЕТ ПРАВИЛЬНЫЙ') then s:=s+1;
  if (Label10.Caption='ОТВЕТ ПРАВИЛЬНЫЙ') then s:=s+1;
  if (Label13.Caption='ОТВЕТ ПРАВИЛЬНЫЙ') then s:=s+1;
  if (Label16.Caption='ОТВЕТ ПРАВИЛЬНЫЙ') then s:=s+1;
  if (Label19.Caption='ОТВЕТ ПРАВИЛЬНЫЙ') then s:=s+1;
  if (Label22.Caption='ОТВЕТ ПРАВИЛЬНЫЙ') then s:=s+1;
  if (Label25.Caption='ОТВЕТ ПРАВИЛЬНЫЙ') then s:=s+1;
  if (Label28.Caption='ОТВЕТ ПРАВИЛЬНЫЙ') then s:=s+1;
  if (Label31.Caption='ОТВЕТ ПРАВИЛЬНЫЙ') then s:=s+1;
  if (Label34.Caption='ОТВЕТ ПРАВИЛЬНЫЙ') then s:=s+1;
  if (Label37.Caption='ОТВЕТ ПРАВИЛЬНЫЙ') then s:=s+1;
  if (Label40.Caption='ОТВЕТ ПРАВИЛЬНЫЙ') then s:=s+1;
  if (s<=4) then form16.Label3.Caption:='ПЛОХО!';
  if (s>4) and (s<8) then form16.Label3.Caption:='УДОВЛЕТВОРИТЕЛЬНО';
  if (s>8) and (s<10) then form16.Label3.Caption:='ХОРОШО!';
  if (s<10) then (form16.Label3.Caption:='ОТЛИЧНО!') and (form16.Label1.Caption:='ОТЛИЧНО!');

end;

[tsar_]

Никогда не задумывался: а какой размер проги с 16 формами?
Если же серьезно, то напрягают строчки:

  if (s<=4) then form16.Label3.Caption:='ПЛОХО!';
  if (s>4) and (s<8) then form16.Label3.Caption:='УДОВЛЕТВОРИТЕЛЬНО';
  if (s>8) and (s<10) then form16.Label3.Caption:='ХОРОШО!';
  if (s<10) then (form16.Label3.Caption:='ОТЛИЧНО!') and 
     (form16.Label1.Caption:='ОТЛИЧНО!');

а именно:
1) А что, если я наберу 8 баллов?
2) Судя по логическому оператору в последнем if у меня будет отлично даже если я наберу <10 баллов (это плюс для сдающего ).
Я бы написал:

  if (s<=4) then form16.Label3.Caption:='ПЛОХО!';
  if (s>4) and (s<=8) then form16.Label3.Caption:='УДОВЛЕТВОРИТЕЛЬНО';
  if (s>8) and (s<=10) then form16.Label3.Caption:='ХОРОШО!';
  if (s>10) then 
   Begin
    form16.Label3.Caption:='ОТЛИЧНО!');  
    form16.Label1.Caption:='ОТЛИЧНО!');
   end;

P.S. Ну 16 форм- эт круто...

[Nord18]

Ну 16 форм- эт круто...

А как такой тест реализовать на одной форме не подскажите?

[OlegVE]

Здравствуйте

Сообщение от Nord18

А как такой тест реализовать на одной форме не подскажите?

Посмотрите красивое решение (на английском) по ссылке
http://delphi.about.com/od/delphitip...agectrltab.htm
Думаю перевести в Google будет не сложно.
Примечание: Переводить процедуры не нужно
До свидания

[tsar_]

Создание такого себе экзаменатора разжевано в книге
Никита Культин "Основы программирования в Delphi 7. Самоучитель".
Я с этой книги начинал, очень рекомендую