假设数据组为A。
Randomize;
i := Random(High(A)-Low(A)+1) + Low(A);
i := A[i]; // i 即为数组中随机出一个数;
Randomize;
i := Random(High(A)-Low(A)+1) + Low(A);
i := A[i]; // i 即为数组中随机出一个数;
解决方案 »
- 用Tidhttp post去网页以后,如何得到跳转的地址和内容?
- VC++编的DLL回参问题
- 非常感谢Corn1(玉米)给我的ACM控件,请玉米来接分
- 关于DBGridEh做记录多选的问题。希望高手近来指点一下
- 主从表中从表的字段Readonly判断问题?
- 散分2:如何在多个文件上点击右键,选择我的程序后,我的程序可以同时打开这些文件呢?
- 将TABLE1的整条记录附给TABLE2,怎么写?
- 公布一个秘籍,关于这方面有分的别忘记了让我拿哟。
- **************急!急!急!一定高分答谢各位*****关于delphi第三方控件
- 请问delphi中怎样读出指定目录下的xml文件?
- 问一个关于DBNavigator1的问题
- 请问Round(Length(Str)/2)什么意思,如何使用?
i:integer;
aa:array[0..5] of integer;
begin
给aa赋值..
Randomize;
Edit1.Text :=IntToStr(aa[random(length(aa))]);
end;