乱数の出力の仕方

幹也 2008-11-12 22:52:01 No: 32580 IP: 192.*.*.*

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;

編集削除

igy 2008-11-12 22:57:58 No: 32581 IP: 192.*.*.*

Randomize;
をfor文の前に移動すると、どうなります？

編集削除

幹也 2008-11-12 23:56:12 No: 32582 IP: 192.*.*.*

うまくいきました。ありがとうございました。

編集削除

幹也さんへ 2008-11-13 10:58:20 No: 32583 IP: 192.*.*.*

解決しようぜ！

編集削除