Тестирующая программа на языке Delphi

    RadioButton1.Caption:=DataModule2.Variant.FieldValues['Ответ'];

    if DataModule2.Variant.FieldValues['Правильный']=true then

    RadioButton1.Tag:=1 else RadioButton1.Tag:=0; 

    DataModule2.Variant.Next;

    RadioButton2.Caption:=DataModule2.Variant.FieldValues['Ответ'];

    if DataModule2.Variant.FieldValues['Правильный']=true then

    RadioButton2.Tag:=1 else RadioButton2.Tag:=0; 

    DataModule2.Variant.Next;

    RadioButton3.Caption:=DataModule2.Variant.FieldValues['Ответ'];

    if DataModule2.Variant.FieldValues['Правильный']=true then

    RadioButton3.Tag:=1 else RadioButton3.Tag:=0; 

    DataModule2.Variant.Next;

    RadioButton4.Caption:=DataModule2.Variant.FieldValues['Ответ'];

    if DataModule2.Variant.FieldValues['Правильный']=true then

    RadioButton4.Tag:=1 else RadioButton4.Tag:=0; 

    Label2.Caption:=inttostr(strtoint(Label2.Caption)+1); 
 

    end; 

    procedure Ttesti.Button1Click(Sender: TObject);

    var i:integer;

        RB:TRadioButton;

        cena:string;

    begin

      if ((RadioButton1.Checked=true) or

      (RadioButton2.Checked=true) or

      (RadioButton3.Checked=true) or

      (RadioButton4.Checked=true) )

      then

      begin

      for i := 0 to GroupBox1.ControlCount-1 do

      begin

        RB:=TRadioButton(GroupBox1.Controls[i]);

        if RB.Checked=true then

        Label1.Caption:=inttostr(strtoint(Label1.Caption)+RB.Tag);

      end; 

      if strtoint(Label2.Caption)<11 then

      begin

        Vopros(strtoint(Label2.Caption));

        RadioButton1.Checked:=false;

        RadioButton2.Checked:=false;

        RadioButton3.Checked:=false;

        RadioButton4.Checked:=false;

      testi.Caption:='Тестирование. Вопрос '+inttostr(strtoint(Label2.Caption)-1)+' из 10';

      end else

      begin

        if strtoint(Label1.Caption)>9 then

        cena:='10' else

        if strtoint(Label1.Caption)>8 then

        cena:='9' else

        if strtoint(Label1.Caption)>7 then

        cena:='8' else

        if strtoint(Label1.Caption)>6 then

        cena:='7' else

        if strtoint(Label1.Caption)>5 then

        cena:='6' else

        if strtoint(Label1.Caption)>4 then

        cena:='5' else

        if strtoint(Label1.Caption)>3 then

        cena:='4' else

        if strtoint(Label1.Caption)>2 then

        cena:='3' else

        cena:='2'; 

        if MessageDlg('Набрано баллов '+Label1.Caption+'.'+#13+

        'Ваша оценка: '+cena+'!',

      mtConfirmation, [mbYes], 0)=mrYes then

      Form1.Visible:=true;

      testi.Close;

      Label2.Caption:='1';

      Label1.Caption:='0';

      RadioButton1.Checked:=false;

      RadioButton2.Checked:=false;

      RadioButton3.Checked:=false;

      RadioButton4.Checked:=false;

      end;

      end else

      showmessage('Вы не выбрали вариант ответа!');

    end; 

    procedure Ttesti.Button2Click(Sender: TObject);

    var i,kol:integer;

    begin

    For i:=1 to DataModule2.Vopros.RecordCount do

    begin

      DataModule2.Vopros.Edit;

      DataModule2.Vopros.FieldValues['Номер']:=i;

      DataModule2.Vopros.Post;

      DataModule2.Vopros.Next;

    end;

    DataModule2.Vopros.Last;

    kol:=DataModule2.Vopros.FieldValues['id']; 

      Randomize;

      SetLength(mass,kol);

      FillArray(mass); 

    Vopros(strtoint(Label2.Caption));

    testi.Caption:='Тестирование. Вопрос 1 из 10';

    end; 

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

    begin

      Form1.Visible:=true;

      Form1.Show;

    end; 

    end. 

 

    

       СПИСОК  ЛИТЕРАТУРЫ 

1. Чеснокова О.В., Delphi 2007. Алгоритмы и программы. Самоучитель. – М.: НТ Пресс, 2008 – 368 с.
2. Алексеев Е.Р., Чеснокова О.В., Турбо Паскаль 7.0, - М.: НТ Пресс, 2006 – 320 с.
3. Бобровский С., Delphi 5: учебный курс, - СПб: Питер, 2001 – 640 с.
4. Карчевская М.П., Рамбургер О.Л., Тархов С.В., Хамзина Е.А., Разработка приложений в среде Borland Delphi: лабораторный практикум по дисциплине "Информатика",- Уфа: УГАТУ, 2005.
5. Интернет-издание, 32 урока: Borland Delphi или о том, что лучше один раз увидеть, чем сто раз услышать.
6. Электронная книга. Архангельский А.Я., 100 компонентов общего назначения библиотеки Delphi 5.
7. Сухарев - Основы Delphi. Профессиональный подход. – СПб.: Наука и Техника, 2004
8. Шпак Ю.А. - Delphi 7 на примерах. – К.: Издательство Юниор, 2003