Delphi 连续生成7个随机数 测试，源码可运行于Delphi7环境，主要是使用Delphi中的Random和Array函数来生成，每次生成一个随机数，并使用Showmessage来弹出框显示随机数，比如下面的代码： 　　procedure TForm1.Button1Click(Sender: TObject); 　　Var 　　 I:integer; 　　 Num:array[0..6] of integer; 　　Begin 　　 Randomize; 　　 For I:=0 to 6 do 　　 begin 　　 Num[I]:=Random(10);