ベストアンサー

Delphi６ Personalで

2004/08/19 21:22

Delphiで簡単なソフトを作っているのですが乱数をテキストボックスに表示をさせたいのですがどうすればいいのでしょうか？＜例＞ 1. 10(乱数で欲しい個数)　←テキストボックスに入力 2．ボタンをクリック 3．10個の乱数がMemoのコンポーネントに表示されるこのような形で乱数(整数)が表示されるソフトを作りたいと考えいています。よろしくお願いします。

kunihikomaru

kunihikomaru
お礼率8% (8/95)

その他（プログラミング・開発）
回答数2
ありがとう数2

みんなの回答 （2）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

mimis

mimis
ベストアンサー率66% (16/24)

2004/08/19 22:12 回答No.1

新規FormにEditとButtonとMemoを置き、Buttonのクリックイベントに下記の行をコピーすればご希望のものが出来ます。なお、乱数の範囲は0から1000までの数字です。 procedure TForm1.Button1Click(Sender: TObject); var Count : integer; begin for Count :=1 to StrToInt(Edit1.Text) do begin Memo1.Lines.Add(IntToStr(Random(1000))); end; end;

ログインすると、全ての回答が全文表示されます。

その他の回答 (1)

noname#182251

noname#182251

2004/08/20 06:23 回答No.2

「mimis」さんの回答に一行補足 begin Randomize;//←この一行を加える for Count :=1 to StrToInt(Edit1.Text) do 「Randomize」なしだと毎回同じ乱数が生成されます。デバッグなどではその方が望ましい場合もあり、その時はコメントアウトして下さい。

ログインすると、全ての回答が全文表示されます。

関連するQ&A

注目のQ&A

カテゴリ

[技術者向] コンピューター
- プログラミング・開発

カテゴリ一覧を見る

OKWAVE コラム

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

職業から探して質問する

専門家登録