Randomize 乱数系列再設定 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 乱数