Помогите пишу диплом(создал простой тест)

[EVGEN_7711]

начал делать простой тест для диплома(тест по информатики) и такая вот проблема.
Строчка if s=10 then Label3.Caption:='10 првильных ответов молодец!(Твоя оценка 4)";
Выдает ошибку почему-то помогите, и еще как сделать перезапуск программы по нажатию кнопки( перезапуск моего теста).




unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, ComCtrls;

type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Label1: TLabel;
Image1: TImage;
Label2: TLabel;
BitBtn1: TBitBtn;
ScrollBox1: TScrollBox;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
GroupBox2: TGroupBox;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
RadioButton7: TRadioButton;
RadioButton8: TRadioButton;
GroupBox3: TGroupBox;
RadioButton9: TRadioButton;
RadioButton10: TRadioButton;
RadioButton11: TRadioButton;
RadioButton12: TRadioButton;
Button2: TButton;
Label3: TLabel;
GroupBox4: TGroupBox;
RadioButton13: TRadioButton;
RadioButton14: TRadioButton;
RadioButton15: TRadioButton;
RadioButton16: TRadioButton;
GroupBox5: TGroupBox;
Image2: TImage;
RadioButton17: TRadioButton;
RadioButton18: TRadioButton;
RadioButton19: TRadioButton;
RadioButton20: TRadioButton;
GroupBox6: TGroupBox;
RadioButton21: TRadioButton;
RadioButton22: TRadioButton;
RadioButton23: TRadioButton;
GroupBox7: TGroupBox;
RadioButton24: TRadioButton;
RadioButton25: TRadioButton;
RadioButton26: TRadioButton;
RadioButton27: TRadioButton;
GroupBox8: TGroupBox;
RadioButton28: TRadioButton;
RadioButton29: TRadioButton;
RadioButton30: TRadioButton;
RadioButton31: TRadioButton;
Button1: TButton;
Label4: TLabel;
Timer1: TTimer;
GroupBox9: TGroupBox;
RadioButton32: TRadioButton;
RadioButton33: TRadioButton;
RadioButton34: TRadioButton;
RadioButton35: TRadioButton;
GroupBox10: TGroupBox;
RadioButton36: TRadioButton;
RadioButton37: TRadioButton;
RadioButton38: TRadioButton;
RadioButton39: TRadioButton;
Label6: TLabel;
Button3: TButton;
Button4: TButton;
Button5: TButton;
GroupBox11: TGroupBox;
RadioButton40: TRadioButton;
RadioButton41: TRadioButton;
RadioButton42: TRadioButton;
RadioButton43: TRadioButton;
GroupBox12: TGroupBox;
RadioButton44: TRadioButton;
RadioButton45: TRadioButton;
RadioButton46: TRadioButton;
RadioButton47: TRadioButton;
GroupBox13: TGroupBox;
RadioButton48: TRadioButton;
RadioButton49: TRadioButton;
RadioButton50: TRadioButton;
RadioButton51: TRadioButton;
GroupBox14: TGroupBox;
RadioButton52: TRadioButton;
RadioButton53: TRadioButton;
RadioButton54: TRadioButton;
RadioButton55: TRadioButton;
GroupBox15: TGroupBox;
RadioButton56: TRadioButton;
RadioButton57: TRadioButton;
RadioButton58: TRadioButton;
RadioButton59: TRadioButton;


procedure BitBtn1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);

procedure FormShow(Sender: TObject);
procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
procedure FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure Button5Click(Sender: TObject);






private
{ Private declarations }
public
{ Public declarations }
end;

var
EndTime:LongInt;
Form1: TForm1;



implementation

uses Unit2, Unit3;

{$R *.dfm}


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form1.Close;
end;
procedure TForm1.Button2Click(Sender: TObject);
var s: integer;
begin
Button3.enabled:=true;

s:=0;
if Form1.RadioButton2.Checked then s:=s+1;
if Form1.RadioButton6.Checked then s:=s+1;
if Form1.RadioButton20.Checked then s:=s+1;
if Form1.RadioButton15.Checked then s:=s+1;
if Form1.RadioButton11.Checked then s:=s+1;
if Form1.RadioButton21.Checked then s:=s+1;
if Form1.RadioButton24.Checked then s:=s+1;
if Form1.RadioButton28.Checked then s:=s+1;
if Form1.RadioButton33.Checked then s:=s+1;
if Form1.RadioButton39.Checked then s:=s+1;
if Form1.RadioButton43.Checked then s:=s+1;
if Form1.RadioButton44.Checked then s:=s+1;
if Form1.RadioButton50.Checked then s:=s+1;
if Form1.RadioButton54.Checked then s:=s+1;
if Form1.RadioButton56.Checked then s:=s+1;



if s=15 then Label3.Caption:=' Молодец, ты ответил на все вопросы!(Твоя оценка 5)';
if s=14 then Label3.Caption:=' Молодец, ты ответил на четырнадцать вопросов!(Твоя оценка 5)';
if s=13 then Label3.Caption:=' Молодец, ты ответил на 13 вопросов!(Твоя оценка 5)';
if s=12 then Label3.Caption:=' Хорошо, ты ответил на 12!(Твоя оценка 4)';
if s=11 then Label3.Caption:=' Ты ответил на все 11!(Твоя оценка 4)';
if s=10 then Label3.Caption:='10 парвильных ответов молодец!(Твоя оценка 4)";
if s=9 then Label3.Caption:='9 ПРАВИЛЬНЫХ ОТВЕТОВ!(Твоя оценка 3)';
if s=8 then Label3.Caption:='Отлично! Ты ответил на 8 вопрос(Твоя оценка 3)';
if s=7 then Label3.Caption:='Молодец! Ты ответил на 7 вопрос(Твоя оценка 3)';
if s=6 then Label3.Caption:='6 Вопросов? Ты не плох!(Твоя оценка 3)';
if s=5 then Label3.Caption:='5 правильных вопросов! ура!(Твоя оценка 2)';
if s=4 then Label3.Caption:='Учи предмет лучше! Всего 4 правильных вопроса!(Твоя оценка 2)';
if s=3 then Label3.Caption:=' Слабо! Всего 3 правильных ответа!(Твоя оценка 2)';
if s=2 then label3.Caption:=' Всего 2 правильных ответа!( Твоя оценка 2)';
if s=1 then label3.Caption:=' Тебе не быть программистом! Всего 1 правильный ответ!(Твоя оценка 2)';
if s=0 then label3.Caption:=' Давай заново!(Твоя оценка 2)';

end;



procedure TForm1.Button1Click(Sender: TObject);
begin
form2.showmodal;
end;











procedure TForm1.FormShow(Sender: TObject);
begin
ScrollBox1.VertScrollBar.Position:= 0;
end;

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
with ScrollBox1.VertScrollBar do
Position:= Position +15;
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
with ScrollBox1.VertScrollBar do
Position:= Position -15;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
EndTime:=300;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
H,M,S:Byte;
begin
Dec(EndTime);
S:=EndTime mod 60;
M:=EndTime div 60 mod 60;
H:= EndTime div 300;
Label4.Caption:= IntTOStr(H) + ':' + IntToStr(M) +':' + IntToStr(S);

if EndTime=0 then
begin
Timer1.enabled:=False;
ShowMessage('Время вышло!');

end;

end;
procedure TForm1.Button3Click(Sender: TObject);
begin
form3.showmodal;
end;

[evg_m]

Выдает ошибку почему-то

скажи секретную ошибку, скажем и что исправить.

как сделать перезапуск программы по нажатию кнопки( перезапуск моего теста).

перезапуск теста это ...

1. показать Form2.ShowModal c "чистыми" полями выбора ответов?
2. ...?

[Serge_Bliznykov]

в этой строчке кавычки в конце не те кавычки

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

if s=10 then Label3.Caption:='10 парвильных ответов молодец!(Твоя оценка 4)";

должно быть так:

if s=10 then Label3.Caption:=' 10 правильных ответов, молодец!(Твоя оценка 4)';

[Alex11223]

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

GroupBox15: TGroupBox;
RadioButton56: TRadioButton;
RadioButton57: TRadioButton;
RadioButton58: TRadioButton;
RadioButton59: TRadioButton;

Вы там не путаетесь в них?

Вообще в тестах обычно читают вопросы/ответы из файла и создают нужные контролы в рантайме.

[NetSpace]

всего 16 вариаций эмоционального реагирования на ответ....
будь мужиком! - делай 100-бальную систему оценивания как в Японии - вот где раскроется твой великий могучий русский язык!

[Аватар]

Полагаю это диплом с бурсы поваров?

[NetSpace]

ага, повара-программисты. там ещё в программе молекулярная кухня и курсовая по химии - синтез и реализация высших спиртов в условиях жуткой депрессии...

[EVGEN_7711]

нас там не очень многому учат! делаю что могу!

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

в этой строчке кавычки в конце не те кавычки


должно быть так:

if s=10 then Label3.Caption:=' 10 правильных ответов, молодец!(Твоя оценка 4)';

Спасибо, большое!

чувак делаю так как умею, если вы можете помочь и навести меня на правильный путь, буду благодарен!

[Alex11223]

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

нас там не очень многому учат! делаю что могу!

Ну дык кто мешает не идти туда?)
Да и вообще унылая отговорка, по программированию полно материалов и возможностей учиться/практиковаться в интернете.

[EVGEN_7711]

Нээээ понятно !