Vereinfachung durch Var.

[Sharky]

Hai Frankie,

mache das ganze doch mit einem Array of String.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  fragen : Array [1..4] of String;
  antworten : Array [1..4] of String;
  eingabe : String;
  ndx    : Integer;
begin
  // Meine Demo-Fragen
  fragen[1] := 'blubb';
  antworten[1] := 'keine Ahnung';
  fragen[2] := 'Sardiene';
  antworten[2] := 'mir egal';
  fragen[3] := 'Karpfen';
  antworten[3] := 'wer will das wissen';
  fragen[4] := 'Hering';
  antworten[4] := 'das ist geheim';
  // Jetzt geht es los
  for ndx := 1 to High (fragen) do
  begin
    eingabe:= InputBox('Super-Quiz',fragen[ndx], 'Antwort eingeben') ;
    if (eingabe = antworten[ndx]) then
    begin
      Showmessage('Richtig')
    end
    else
    begin
      Showmessage('Falsch');
    end;
  end;
end;

Das ist so natürlich nur ein Beispiel. Besser wäre natürlich ein Dynamisches-Array oder gleich eine kleine Datenbank dahinter!