产生随机数

 

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;

 

来自为知笔记(Wiz)