Помогите по delphi

-16

Помогите по delphi

Практическое задание создать тест в delphi

Что я сделал:
1) создал еще одну (вторую) форму по заданию
2) разместил кнопку button на первой форме, по нажатию этой кнопки перекидывает на вторую форму с тестом
3) написал код, все работает замечательно, но есть проблемма.
Когда выбираешь неправильные ответы он пишет оценку соответствующую, но когда выбираешь только правильные ответы оценка не ставиться!!!

ВОТ КОД

unit Unit2;

interface

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

type
TForm2 = class(TForm)
Image1: TImage;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
RadioGroup1: TRadioGroup;
TabSheet2: TTabSheet;
RadioGroup2: TRadioGroup;
TabSheet3: TTabSheet;
RadioGroup3: TRadioGroup;
TabSheet4: TTabSheet;
RadioGroup4: TRadioGroup;
TabSheet5: TTabSheet;
RadioGroup5: TRadioGroup;
procedure RadioGroup1Click(Sender: TObject);
procedure RadioGroup2Click(Sender: TObject);
procedure RadioGroup3Click(Sender: TObject);
procedure RadioGroup4Click(Sender: TObject);
procedure RadioGroup5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;
i: integer;

implementation

{$R *.dfm}

procedure TForm2.RadioGroup1Click(Sender: TObject);
begin
i:=0;
case RadioGroup1.ItemIndex of
0:Begin
i:=i+0;
PageControl1.ActivePageIndex:=1;
end;
1: begin
i:=i+0;
PageControl1.ActivePageIndex:=1;
end;
2: begin
i:=i+1;
PageControl1.ActivePageIndex:=1;
end;
3: begin
i:=i+0;
PageControl1.ActivePageIndex:=1;
end;
end;
end;

procedure TForm2.RadioGroup2Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0:Begin
i:=i+0;
PageControl1.ActivePageIndex:=2;
end;
1: begin
i:=i+0;
PageControl1.ActivePageIndex:=2;
end;
2: begin
i:=i+1;
PageControl1.ActivePageIndex:=2;
end;
3: begin
i:=i+0;
PageControl1.ActivePageIndex:=2;
end;
end;
end;
procedure TForm2.RadioGroup3Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0:Begin
i:=i+0;
PageControl1.ActivePageIndex:=3;
end;
1: begin
i:=i+0;
PageControl1.ActivePageIndex:=3;
end;
2: begin
i:=i+1;
PageControl1.ActivePageIndex:=3;
end;
3: begin
i:=i+0;
PageControl1.ActivePageIndex:=3;
end;
end;
end;
procedure TForm2.RadioGroup4Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0:Begin
i:=i+0;
PageControl1.ActivePageIndex:=4;
end;
1: begin
i:=i+0;
PageControl1.ActivePageIndex:=4;
end;
2: begin
i:=i+1;
PageControl1.ActivePageIndex:=4;
end;
3: begin
i:=i+0;
PageControl1.ActivePageIndex:=4;
end;
end;
end;

procedure TForm2.RadioGroup5Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0:Begin
i:=i+0;
begin
if i<3 then
ShowMessage('Âàøà îöåíêà 2');
if i=3 then
ShowMessage('Âàøà îöåíêà 3');
end;
if i=4 then
ShowMessage('Âàøà îöåíêà 4');
if i=3 then
ShowMessage('Âàøà îöåíêà 5');
end;
end;
end;
end.

16.06.2011, 07:44

Комментарии — 8

RS16.06.2011, 07:44#

help
RS16.06.2011, 07:53#

че блять помочь не можете
FeJIukc16.06.2011, 08:19#

имбицил, никто в 8 утра тут не сидит
- RS16.06.2011, 08:32↑#
  
  пройди мимо если не знаешь как делать у меня время 10 часов
  - ~~troll1ng~~16.06.2011, 14:54↑#
    
    сука, если у тебя 10, это не значит, что у всех 10. мудк.
AIMZORED16.06.2011, 08:56#

напиши, где у тя проверка правильных ответов и неправильных
- RS16.06.2011, 09:03↑#
  
  Вопросы теста Вопрос 1 За начало отсчета географической долготы места принят • Экватор • Меридиан 1800 • Нулевой меридиан + • Северный полюс Вопрос 2 Линии, соединяющие на климатических картах точки с одинаковым атмосферным давлением, называются • Горизонталями • Изометмами • Изобарами + • Изогиетами Вопрос 3 Артезианскими называются воды • Почвенные • Грунтовые + • Межпластовые ненапорные • Межпластовые напорные Вопрос 4 Основным географическим следствием шарообразной формы Земли являются • Смена дня и ночи • Смена времени года • Широтная зональность + • Высотная поясность Вопрос 5 Образование пояса низкого атмосферного давления в экваториальных широтах обусловлено прежде всего • Низкими температурами воздуха • Высокими температурами воздуха + • Деятельностью циклонов • Деятельностью антициклонов
  что стоит плюсики, те правильные ответы
AIMZORED16.06.2011, 19:20#

как-то по тупому код написан. если нужна еще помощь, пиши в стим n1nsk