Hallo
habe ein Problem mit dem Randombefehl
er soll eine Beliebige Zahl zwischen 1 und 6 anzeigen, jedoch zeigt er 6 nie an und manchmal zeigt
er gar nichts an
hier der source:
Delphi-Quellcode:
procedure TForm2.FormCreate(Sender: TObject);
var f : integer;
begin
randomize;
f:=random(6);
if f=1 then
showmessage('1')
else if f=2 then
showmessage('2')
else if f=3 then
showmessage('3')
else if f=4 then
showmessage('4')
else if f=5 then
showmessage('5')
else if f=6 then
showmessage('6')
end;
danke im Voraus