指定範囲の乱数を得る
57	RandomRange	動作確認	Delphi2007	更新日	2008/01/30(水)

指定範囲の乱数を得る方法です。

10から20の範囲で乱数を得るには次のようにします。
RandomRangeの引数に1を追加して範囲を指定します。
────────────────────
//uses Mathを追加
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Randomize;
  for i := 0 to 30 do
  begin
    Memo1.Lines.Add(IntToStr(RandomRange(10, 20+1)));
  end
end;
────────────────────
Randomizeは乱数列の初期化処理。
Randomizeをしておかないと常に同じ乱数列で出力されます。

動作確認画面です。