乱数の出力の仕方

幹也 2008-11-13 07:52:01 No: 32580

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-13 07:57:58 No: 32581

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

幹也 2008-11-13 08:56:12 No: 32582

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

幹也さんへ 2008-11-13 19:58:20 No: 32583

解決しようぜ！