Randomize 乱数系列再設定
Randomizeステートメントは乱数ジェネレータを初期化します。これを行わないと乱数が毎回同じパターンで値を返します。
Delphiでも同一名の Randomize 手続きを使用します。
■ 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; |
関連項目
Rnd 乱数