[PaHaNjkee]

Здраствуйте у меня возникла проблема! Я выбираю 1 радиобатон потом на 2 странице 1 потом на 3 1 на 4 тоже 1 и на 5 выбираю 2(на каждой странице по 5 радиобатонов!)

Ну вот выбираю все не правильные мне в конце пишет 5 и вы здали тест! А если отвечаю правильно то пишет 4 и вы здали тест! Помогите чтобы если 0 ошибок было 5, 1 ошибка было 4, 2 ошибки было 3, 3 ошибки было 3, 4 или 5 ошибок было 2. Заранее благодарен вот весь код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, sSkinManager, StdCtrls, ExtCtrls, acNoteBook, sBitBtn, sLabel, sRadioButton,   Buttons;   type   TForm1 = class(TForm)     sSkinManager1: TsSkinManager;     sNotebook1: TsNotebook;     sBitBtn1: TsBitBtn;     sRadioButton1: TsRadioButton;     sRadioButton2: TsRadioButton;     sRadioButton3: TsRadioButton;     sRadioButton4: TsRadioButton;     sLabelFX1: TsLabelFX;     sRadioButton5: TsRadioButton;     sLabelFX2: TsLabelFX;     sRadioButton6: TsRadioButton;     sRadioButton7: TsRadioButton;     sRadioButton8: TsRadioButton;     sRadioButton9: TsRadioButton;     sRadioButton10: TsRadioButton;     sLabelFX3: TsLabelFX;     sRadioButton11: TsRadioButton;     sRadioButton12: TsRadioButton;     sRadioButton13: TsRadioButton;     sRadioButton14: TsRadioButton;     sRadioButton15: TsRadioButton;     sLabelFX4: TsLabelFX;     sRadioButton16: TsRadioButton;     sRadioButton17: TsRadioButton;     sRadioButton18: TsRadioButton;     sRadioButton19: TsRadioButton;     sRadioButton20: TsRadioButton;     sLabelFX5: TsLabelFX;     sRadioButton21: TsRadioButton;     sRadioButton22: TsRadioButton;     sRadioButton23: TsRadioButton;     sRadioButton24: TsRadioButton;     sRadioButton25: TsRadioButton;     sLabelFX6: TsLabelFX;     sLabelFX7: TsLabelFX;     sLabelFX8: TsLabelFX;     sLabel1: TsLabel;     procedure FormCreate(Sender: TObject);     procedure sBitBtn1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   ok:integer=0;   implementation   {$R *.dfm}   procedure TForm1.FormCreate(Sender: TObject); var myDir:string; begin myDir:=ExtractFilePath(ParamStr(0)); sSkinManager1.Active:=False; sSkinManager1.BeginUpdate; sSkinManager1.SkinDirectory:=myDir; sSkinManager1.SkinName:='qq'; sSkinManager1.EndUpdate; sSkinManager1.Active:=True;   sNotebook1.PageIndex:=0; end; procedure TForm1.sBitBtn1Click(Sender: TObject); begin   if sNotebook1.PageIndex<sNotebook1.Pages.Count-1 then     sNotebook1.PageIndex:=sNotebook1.PageIndex+1   else     sNotebook1.PageIndex:=0;     if sRadioButton1.Checked=True then ok:=ok+1;         if sRadioButton6.Checked=True then ok:=ok+1;         if sRadioButton11.Checked=True then ok:=ok+1;         if sRadioButton16.Checked=True then ok:=ok+1;         if sRadioButton22.Checked=True then ok:=ok+1;     if ok=0 then sLabelFX8.Caption:='2';     if ok=1 then sLabelFX8.Caption:='2';     if ok=2 then sLabelFX8.Caption:='3';     if ok=3 then sLabelFX8.Caption:='4';     if ok=4 then sLabelFX8.Caption:='4';     if ok=5 then sLabelFX8.Caption:='5';     if sLabelFX8.Caption='2' then sLabelFX6.Caption:='Вы не здали тест!' else     sLabelFX6.Caption:='Вы здали тест!'; end;   end.

[Страдалецъ]

А если так?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

ok := 0;        if sRadioButton1.Checked then ok:=ok+1;        if sRadioButton6.Checked then ok:=ok+1;        if sRadioButton11.Checked then ok:=ok+1;        if sRadioButton16.Checked then ok:=ok+1;        if sRadioButton22.Checked then ok:=ok+1;    if (ok=0) or (ok=1) then sLabelFX8.Caption:='2';    if ok=2 then sLabelFX8.Caption:='3';    if ok=3 then sLabelFX8.Caption:='4';    if ok=4 then sLabelFX8.Caption:='4';    if ok=5 then sLabelFX8.Caption:='5';    if ok < 2 then sLabelFX6.Caption:='Вы не сдали тест!' else    sLabelFX6.Caption:='Вы сдали тест!';

[PaHaNjkee]

Сообщение от Страдалецъ

А если так?

Код:

Спасибо, работает!