怎样求一个随机数,它是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的值,所以再加上一 就可以了! pcomm过滤数据问题 delphi如何连本地的dbf文件阿 多线程更新数据库问题 救命啊!100分求个软件! 谁能告诉我demoshield下载地址, Query删除记录的一个小问题 有哪位知道哪里可以查到delphi对word控制的一些属性和方法 急需解决的VC&DELPHI难题,谢谢 用gauss消去法,解线性方程组的程序???c语言的!。 被老板骂了,快帮忙!给百分!!! f1book中如何设置列宽? 重重有赏,在delphi6 下怎样装控件. 如何知道文件夹选项中的隐藏文件扩展名选项是否设置?
begin
Caption := IntToStr(Random(24) + 1);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;
random(24)+1; //random返回一个>=0且<24的值,所以再加上一
就可以了!