Quiz in Delphi

[blink182]

moin
also ich würds nicht so machen denk ich mal. Auf die schnelle würde ich sowas nutzen:

Delphi-Quellcode:

var zufall:array of integer;


procedure TForm1.Button1Click(Sender: TObject);
var a,zufallszahl:integer;
begin

 setlength(zufall,3);
 zufall[0]:=4;
 zufall[1]:=5;
 zufall[2]:=6;
 a:=random(3);
 zufallszahl:=zufall[a];
 showmessage(inttostr(zufallszahl));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;

gibt bestimmt noch andere bessere methoden, aber ich denke es funktioniert