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