randomize()
rand()
在数据库中抽取’随机数‘道题(id自增),什么意思?
rand()
在数据库中抽取’随机数‘道题(id自增),什么意思?
解决方案 »
- 散1000分,第四个
- 如何在让一个窗口的参数传递给另一个窗口(以打开的)
- 关于clientdataset的 .close 和 free 的区别使用?
- 怎么远程管理MDB文件
- bde问题 :invalid handle in record buffer
- 如何实现通过delphi写的程序,替换或改变其他软件界面的图片!
- 在批处理中如何取得已经删除,但是还没有提交的数据的内容?
- DELPHI7里的报表设计器在哪里?怎么没有看到QUICKREPORT?
- 请教如何判断当前指针在DBGRID中的第几行?
- 简单的文件操作问题。
- 如何实现TreeView的 Data的读取
- 请教关于ADO连接的加密及访问权限的两个问题
而题目的总数(TotalQuestion)可以从
select count(id) from MyDataBase where ....得知
跟着 Random(totalQuestion)+1 求随意题目var TotalQuestion, CurrentQuestion : Integer;.....Query1.sql.clear;
Query1.sql.Add('select count(id) from AllQuestion');
Query1.open;totalQuestion := query1.field[0].AsInteger;
randomize;
CurrentQuestion := Random(TotalQuestion)+1;Query2.sql.clear;
query2.sql.Add('select field1,.... from AllQuestion';
query2.sql.Add('where ID = :ID);
query2.ParmByName('ID').AsInteger := CurrentQuesiton;
Query2.open;
randomize();
id:=random(YourRecordCount);
试一试,还好用