Для тех кому скучно, программа тест на Delphi

[Last]

Извините, я совсем не по теме, но всё же. Я написал программу, проводящую тестирование пользователя. Она совсем несложная, но я подозреваю что сделана она криво-криво, так вот собственно ради чего я пишу, если кто-то разбирающийся в программировании больше меня(а я уверен что здесь таких 99,9%) пребывая в состоянии скуки и ничегонеделания прочтёт этот пост и захочет помочь мне в усовершенствовании этого кривого кода, тому я был бы очень благодарен!
В этой ссылке проект, код, все дела, вроде всё запихал http://slil.ru/26583936
вот и сам код:

unit opros;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  a,i,n:integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=0;
radiobutton1.enabled:=true;
radiobutton2.enabled:=true;
radiobutton3.enabled:=true;
button3.Enabled:=true;
  radiobutton1.caption:='true';
  radiobutton2.caption:='false';
  radiobutton3.caption:='don''t know';i:=1;
  label2.caption:='Question №'+inttostr(i);

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   //label1.Caption:=inttostr(i);
i:=i+1;
case i of
 2: begin
  if radiobutton1.checked= true then n:=n+1;
  radiobutton1.caption:='false';
  radiobutton2.caption:='true';
  radiobutton3.caption:='don''t know';
  label2.caption:='Question №'+inttostr(i);

    end;
 3: begin
  if radiobutton2.checked= true then n:=n+1;
  radiobutton1.caption:='don''t know';
  radiobutton2.caption:='false';
  radiobutton3.caption:='true';
  label2.caption:='Question №'+inttostr(i);

   end;
  4: begin
    if radiobutton3.checked= true then n:=n+1;
    button5.Enabled:=true;
    radiobutton1.enabled:=false;
    radiobutton2.enabled:=false;
    radiobutton3.enabled:=false;
    button3.Enabled:=false;
    label2.Caption:='Test is over';
     end;
    end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
 label1.Caption:='your grade is '+inttostr(n);
 label3.visible:=true;
end;

end.

[KORN]

вот пример моего теста
http://programmersforum.ru/attachmen...0&d=1231841971

[pancho]

а что за тест на какую тему?))
и ещё очень неудобно сделано,что постоянно вводишь-

PHP код:

radiobutton1.caption:='true';
  radiobutton2.caption:='false';
  radiobutton3.caption:='don''t know';i:=1;
  label2.caption:='Question №'+inttostr(i); 


надо это какнить через файлы сделать,чтобы в файле были вопросы,а из них считывалась информация)

[Arigato]

я подозреваю что сделана она криво-криво

Совершенно верные опасения. Программа должна содержать набор функций позволяющих работать с тестовой базой (не важно, файлы, СУБД, xml или ещё чего), а не саму тестовую базу.

[Last]

2 KORN при попытке открыть Ваш проект, выводится сообщение error reading form "error reading question.Explicitleft: property explicitleft does not exist", что это такое, объясните плиз, таких ошибки вылазит 4: ExplicitLeft, ExplicitTop, ExpliciWidth, ExpliciHeight, помимо этого проект не компилится с указанием на строку

 Application.MainFormOnTaskbar := True;

(на вкладке project) MainFormOnTaskbar - неописанная переменная, а так код очень интересный, спасибо, есть с чем поразбираться=)

[KORN]

я пишу на Delphi 2009 и никаких ошибок не возникает, под рукой нет более старых версий делфы что бы проверить... ты интерфейс скопируй и процедуры в свою делфу и все будет работать