掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
乱数の出力の仕方 (ID：32580)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
1〜99の乱数をテキストに出力したいため、以下のコードを作りました。 しかし、等間隔ごとに同じ数字が出力してしまいます。 どなたか教えてください。 procedure TForm1.Button1Click(Sender: TObject); var i,M: Integer; S: string; StL1: TStringList; begin StL1 := TStringList.Create; for i:=1 to 100000 do begin Randomize; M:= Trunc(Random(99)) +1; S:= Format('%.2d',[M]); StL1.Add(S); end; StL1.SaveToFile(ExtractFilePath(Application.ExeName) + '乱数.txt'); StL1.Free; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.