◆説明◆
　ランダムな数値を取得します。

◆注意◆
　Randomize は、メインフォームの Initilization や OnCreate などで、一
回だけ行うようにしましょう。
（このフォーラムで教えて頂きました。 m(__)m ｿﾉｾﾂ ﾊ ｱﾘｶﾞﾄｳ ｺﾞｻﾞｲﾏｼﾀ･･･)

◆サンプルコード◆
// Randmize;

var
   CC, Rnd: Integer;
begin
   for CC := 1 to 5 do
   begin
      Rnd := Random(5)
    { この場合、０〜４までの５種類の整数値が取得されます。
      もし、１〜５までの整数値が必要な場合は
      Rnd := Random(5) + 1;
      となります。}

      StringGrid1.Cells[CC,1] := IntToStr(Rnd);
   end;
end;

                               　　　　　J-OH!(VEC05267)

Original document by J-OH!　　　　   氏 ID:(VEC05267)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。