//-------------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
buff:integer;
begin
buff:=strtoint(Edit1.Text);
Randomize; // <---------没有此句 每次random产生的随机序列相同
label1.Caption:=inttostr(random(buff));
end;
//-------------------------------------------------------------------------------------
联系客服