Terning kastning

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  label1.Caption := IntToStr(Random(6)+1);
end;


Husk altid at kører randomize en gang i dit program, det starter din randomgenerator

Hvis du gerne vil have tallet ud i en variabel


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

procedure TForm1.Button1Click(Sender: TObject);
var
  Ran : Integer;
begin
  Ran := Random(6)+1;
  ShowMessage(IntToStr(Ran));
end;

hvad betyder det at man sætter Randomize ind i formcreate egentlig?

Scorpius> Det betyder at den kun bliver kalt en gang, når din form startes (creates), Randomize, initialisere din randomgenerator

Delphi hjælp på Randomize:

Randomize initializes the built-in random number generator with a random value (obtained from the system clock). The random number generator should be initialized by making a call to Randomize, or by assigning a value to RandSeed.

Do not combine the call to Randomize in a loop with calls to the Random function. Typically, Randomize is called only once, before all calls to Random.

oki fint nok...

procedure TForm1.FormCreate(sender:TObject);
var i:integer;
begin
  Randomize;
  i := random(6);
  if i = 0 then i := 1;
  showmessage('Tallet er ' + IntToStr(i));
end;

cynerlsn> din funktion kan aldrig give tallet 6, sandsynligheden for at få 1 = 2/6 istedet for 1/6

du skal gøre som jeg har vist dig, desuden kørrer din random kun en gang :(

det skal bruges til et poker terning spil. så kører jeg bare den 5 gange eller hvad

sådan her
Du kan jo gøre sådan her, alternativ oprette en array eller en record og puttet tallene i

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

procedure TForm1.Button1Click(Sender: TObject);
var
  Ran1, Ran2, Ran3, Ran4, Ran5 : Integer;
begin
  Ran1 := Random(6)+1;
  Ran2 := Random(6)+1;
  Ran3 := Random(6)+1;
  Ran4 := Random(6)+1;
  Ran5 := Random(6)+1;
end;

Her har du dine data i en array

var
  Form1: TForm1;
  Poker : Array[1..5] of integer;
implementation

{$R *.dfm}

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

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  for i := 1 to 5 do
    Poker[i] := Random(6)+1;
end;