产生随机数

产生随机数
 
procedure  TForm1 . Button1Click ( Sender :  TObject );
var
   result : Integer ;
   i : Integer ;
begin
   Memo1 . Clear ;
   for  i := 0  to  10  do
   begin
       Randomize ;
       Result := Random ( 1000 )+ 1 ;
       Memo1 . Lines . Add ( IntToStr ( result ));
   end ;
end ;
 




你可能感兴趣的:(随机数)