怎样求一个随机数,它是1至24内的任一整数? Randomize;Random(24) + 1; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button1Click(Sender: TObject);begin Caption := IntToStr(Random(24) + 1);end;procedure TForm1.FormCreate(Sender: TObject);begin Randomize;end; 一条语句:random(24)+1; //random返回一个>=0且<24的值,所以再加上一 就可以了! QuickReport4.06 for delphi2006 如何安装? 打印StringGrid内容的时候怎么根据StringGrid列的宽动态设制打印的列的宽. 怎样让DateTimePicker1初始显示为空? >>>>>重庆美女网上相亲,回答上问题的程序员立即成亲<<<<<< 如何循环的自动加QRLabel 还是SQL问题,在线等待:关于LIKE和CONTAINS 新人学习遇到的问题 告我地址,哪有TC下载? 关于paradox表密码问题? 如何在Delphi中开发数据库程序 重重有赏,在delphi6 下怎样装控件. 如何知道文件夹选项中的隐藏文件扩展名选项是否设置?
begin
Caption := IntToStr(Random(24) + 1);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;
random(24)+1; //random返回一个>=0且<24的值,所以再加上一
就可以了!