Rnd 乱数
Rnd関数は指定範囲内で乱数を発生させ返します。
Delphiでは Random 関数を使用します。
Random関数は引数で渡された値の範囲でランダムな値を返します。引数で 10 を渡せば 0〜9 の範囲で値を返します。
■ Randomize の使用例 |
procedure TForm1.Button1Click(Sender: TObject); var x, y, i : integer; begin //PaintBox内にランダムな位置に円を描画する Randomize; with PaintBox1 do begin //ペンの色を赤に設定 Canvas.Pen.Color := clRed; for i := 0 to 100 do begin //円の横位置 x := Random(Width); //円の縦位置 y := Random(Height); //円の描画 Canvas.Ellipse(x ,y, x + 10, y + 10); end; end; end; |
※Randomize手続きを実行して乱数発生ルーチンを初期化することをお勧めします。
関連項目
Randomize 乱数系列再設定