Fahrschulprogramm

[Bloodycrow]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer; Zeile: String;
begin
  randomize;
  Gefragt := 0;
  Geloest := 0;
  try
    if OpenDialog1.Execute then
      DateiName := OpenDialog1.FileName
    else
      DateiName := 'Fragen.txt';
    AssignFile (Datei, DateiName);
    Reset (Datei);
    for i := 1 To Max do
    begin
      Readln (Datei, Frage[i]);
      Readln (Datei, Antwort[i,1]);
      Readln (Datei, Antwort[i,2]);
      Readln (Datei, Antwort[i,3]);
      Readln (Datei, Zeile);
      Richtig[i] := StrToInt (Zeile);
    end;
    CloseFile (Datei);
  except
    ShowMessage ('Datei oder Daten nicht vorhanden!');
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Nr := random (Max) + 1;              
  Panel1.Caption := Frage[Nr];
  RadioGroup1.Items[0] := Antwort[Nr,1];
  RadioGroup1.Items[1] := Antwort[Nr,2];
  RadioGroup1.Items[2] := Antwort[Nr,3];
  if CheckBox1.Checked then
    RadioGroup1.ItemIndex := Richtig[Nr]-1
  else
    RadioGroup1.ItemIndex := -1;
  inc (Gefragt);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if RadioGroup1.ItemIndex = Richtig[Nr]-1 then
  begin
    inc (Geloest);
    Panel1.Caption := 'Von ' + IntToStr(Gefragt) + ' sind ' + IntToStr(Geloest) + ' richtig!';
  end
  else
    Panel1.Caption := 'Falsch!';
end;

das habe ich schon von einem früheren Quiz,allerdings muss ich die Möglickeit haben, mehrere Antworten auswählen zu können und das muss ich verändern...und da fehlen mir die ideen.

Und ich möchte, dass zu bestimmten Fragen auch das dazugehörige Bild dahinkommt...das kann ich noch nicht realisieren.