乱数を発生させる

ここでは0〜10の数値をランダムに発生させます。



■使用するルーチン

■ソースは下記のようになります。

■乱数を発生させる処理
procedure TForm1.Button1Click(Sender: TObject);
Var
　Suti : integer;
begin

　//乱数生成関数を初期化する
　Randomize;
　//0〜10までの数値を発生させる
　Suti := Random(11);
　//メッセージボックスへ
　ShowMessage(Inttostr(Suti));

end;



Delphi　Tipsのページへ



ホーム