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:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    FragePanel: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation



{$R *.dfm}



procedure TForm2.Button2Click(Sender: TObject);
begin
  if not (RadioButton1.checked or RadioButton2.checked or RadioButton3.checked or Radiobutton4.checked) then
    begin
    ShowMessage('Bitte eine Auswahl treffen!');
end;
  if (RadioButton1.checked or RadioButton2.checked or RadioButton3.checked or Radiobutton4.checked) then
begin
  form2.hide;
  form3.show;
end;
end;


end.					

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:

type TQuestionData = record
  question: String;
  answer0: String;
  answer1: String;
  answer2: String;
  answer3: String;
  correctAnswer: integer;
end;

var questions: array of TQuestionData;

procedure InitializeQuestions;
begin
  SetLength(questions, 1);
  questions[0].question := 'Ein Pottwal und ein ...';
  questions[0].answer0 := 'Bügeleisen';
  questions[0].answer1 := 'Petunientopf';
  questions[0].answer2 := 'Delphin';
  questions[0].answer3 := 'Pangalaktischer Donnergurgler';
  questions[0].correctAnswer := 1;
end;

procedure LoadQuestion(idx: integer);
begin
  selectedQuestion := idx;
  Label1 := questions[idx].question;
  ...
end;

procedure TestAnswers();
begin
  if ((questions[ selectedQuestion ].correctAnswer = 0) and (RadioButton0.Checked))
  or ((questions[ selectedQuestion ].correctAnswer = 1) and (RadioButton1.Checked))
  or ((questions[ selectedQuestion ].correctAnswer = 2) and (RadioButton2.Checked))
  or ((questions[ selectedQuestion ].correctAnswer = 3) and (RadioButton3.Checked)) then
    correctAnswers  := correctAnswers  + 1
  else
    wrongAnswers := wrongAnswers + 1;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TestAnswers();
begin
  if ((questions[ selectedQuestion ].correctAnswer = 0) and (RadioButton0.Checked))
  or ((questions[ selectedQuestion ].correctAnswer = 1) and (RadioButton1.Checked))
  or ((questions[ selectedQuestion ].correctAnswer = 2) and (RadioButton2.Checked))
  or ((questions[ selectedQuestion ].correctAnswer = 3) and (RadioButton3.Checked)) then
    correctAnswers  := correctAnswers  + 1
  else
    wrongAnswers := wrongAnswers + 1;
end;					

1:
2:
3:
4:
5:
6:
7:

procedure TestAnswers();
begin
  if RadioButton0.Checked then
    correctAnswers:= correctAnswers + RadioButton0.Tag
  else if RadioButton1.Checked then
    correctAnswers:= correctAnswers + RadioButton1.Tag
  else if ...					

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:

procedure EvaluateQuestion( Form: TForm );
begin
  if Form.RadioButton1.Checked then
    begin
      correctAnswers := correctAnswers + RadioButton1.Tag;
      wrongAnswers := wrongAnswers + (1-RadioButton1.Tag);
    end;
  if Form.RadioButton2.Checked then
    begin
      correctAnswers := correctAnswers + RadioButton2.Tag;
      wrongAnswers := wrongAnswers + (1-RadioButton2.Tag);
    end;
  if Form.RadioButton3.Checked then
    begin
      correctAnswers := correctAnswers + RadioButton3.Tag;
      wrongAnswers := wrongAnswers + (1-RadioButton3.Tag);
    end;
  if Form.RadioButton4.Checked then
    begin
      correctAnswers := correctAnswers + RadioButton4.Tag;
      wrongAnswers := wrongAnswers + (1-RadioButton4.Tag);
    end;

  //noch Einfügen: Aktualisierung der Anzeige
end;					

1:

Unit1.EvaluateQuestion(Form2);					

1:
2:

implementation
  uses Unit1;