Zitat von
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!
Kommt bei mir leider eine Fehlermeldung.
