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