[PaHaNjkee]

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

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

Код:

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.

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

А если так?

Код:

 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]

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

А если так?

Код:

 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:='Вы сдали тест!';

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