お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"ランダム数値の取得"





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

◆注意◆
 Randomize は、メインフォームの Initilization や OnCreate などで、一
回だけ行うようにしましょう。
(このフォーラムで教えて頂きました。 m(__)m ソノセツ ハ アリガトウ ゴザイマシタ・・・)

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

var
   CC, Rnd: Integer;
begin
   for CC := 1 to 5 do
   begin
      Rnd := Random(5)
    { この場合、0〜4までの5種類の整数値が取得されます。
      もし、1〜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蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。

Copyright 1996-2002 Delphi Users' Forum