在DELPHI怎样使产生的随机数不重复！

jhwcd 2004-04-05 04:57:16

我想用DELPHI写一个抽奖程序，是一个手机抽奖的程序，每点一下，就产生一个随机数，而且不能有重复，数据是从数据库里读出来的！

...全文

231 16 打赏收藏转发到动态举报

写回复

16 条回复

切换为时间正序

请发表友善的回复…

发表回复

jhwcd 2004-04-06

打赏
举报

回复

我想问一下，DELPHI里的sql语句的参数，如果是变量是怎么写的？

acqy 2004-04-06

打赏
举报

回复

我觉得如果你的要求不是很高的话，randomize可以啊。

小马哥aa 2004-04-06

打赏
举报

回复

用个WHILE 语句吧.

qufo 2004-04-05

打赏
举报

回复

有网卡可以产生完全不重复的数字。有兴趣可以翻以前的文档

jhwcd 2004-04-05

打赏
举报

回复

我是初学者，刚开始学的，这个程序还是别人给我的改的！

hthunter 2004-04-05

打赏
举报

回复

呵呵，什么都要高手帮你做好，那怎么行呢？

jhwcd 2004-04-05

打赏
举报

回复

有哪位高手能不能帮写一下，我明天要用的！

yimoo 2004-04-05

打赏
举报

回复

同意楼上的！事实上要想简单的话！
就用数组存放已经得到的数据，然后再判断新取出来的随机数是否已经存在；
最简单的就是建立一个TStringList对象；

if StrList.IndexOf(新的随机数)>=0
then 重新产生

hermit000 2004-04-05

打赏
举报

回复

查询一下联机手册。我想应该可以用数组或者是用后台数据库来存放已经产生了的数，然后用函数来判断是否有重复。

racesun 2004-04-05

打赏
举报

回复

study

wsstar 2004-04-05

打赏
举报

回复

最好通过系统时间来取种子。。
randomize很容易重复的。。

hermit000 2004-04-05

打赏
举报

回复

up!

wsstar 2004-04-05

打赏
举报

回复

up..

razyjmy 2004-04-05

打赏
举报

回复

randomize!!
好象是这个函数！！随机初始化！！

老土豆T 2004-04-05

打赏
举报

回复

up

jhwcd 2004-04-05

打赏
举报

回复

哪位高手帮我看一下！

产生不同随机数，利用delphi产生不同随机数。

随机数的产生很重要，它可用于验证登录等等，因此很重要该文档是着重与怎么实现delphi开发技术的随机数的产生。

Delphi生成不重复的随机数Demo

delphi产生随机数2009-07-27 18:58//用delphi产生不重复的随机数 ****************************************************************************************** var aa : array[1..36] of string[2]; //aa数组为需要随机排列的数组，{先把1..36按顺序给aa数组赋值} procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin for i:=1 to 36 do begin aa[i]:=inttostr(i); bb[i]:=inttostr(i); end; end; {随机进行排列} procedure TForm1.Button1Click(Sender: TObject); var i,j:integer; swapa:string[2]; begin randomize; //随机数初始化*一定要有，不然下次运行时候产生的随机数仍然和这次相同* for i:=1 to 36 do begin j:=1+random(36); swapa:=aa[i]; aa[i]:=aa[j]; aa[j]:=swapa; end; //由此得到不重复的随机排列数字 ***************************************************************************************** 如何产生34-456之间的随机数 Randomize; 34+Random(456-34+1); ×××××××××××××××××××//下面是扫雷游戏的一个编法 procedure TForm1.Button1Click(Sender:TObject); begin Randomize; Memo1.Lines.Add(IntToStr(Random(20))); end; ×××××××××××× ***************************************************************************************** 随机数相关的几个函数： 1、RandSeed;//随时机数发生的“种子”。如果不赋值那么每次执行产生的随机数列是一样的。所以该值必须每次调用均应是不同值。 2、Randomize;//用当前机器时间作为“种子”初始化随机数发生器。 3、Random() ；//由“种子”初始化的随机数出发，开始产生随机数序列但是Delphi中的Random()产生的是伪随机数，也就是说，程序的两次运行，Random()产生的随机数是一样的。先运行一下Randomize,再Random就是真正的随机数了即： Randomize //初始化随机数发生器 Random() ********************************************************************************************* delphi 如何产生不重复随机数 pascal里的随机数 随机数是指理论上没有规律可循、在指定范围内每个数的出现几率相等、无法根据之前的数来预测下一个数的数列。一般随机数生成器的基本原理是：首先初始化一个随机种子，其初始值可以是任意的整数；在每次获取随机数时，以随机种子为基础进行某种特殊的运算，获得一个随机数并返回之，然后再对随机种子进行某种运算，改变随机种子的值。这样，就可以生成许多比较随机的数，但同一个初始值的随机种子将会生成完全相同的随机数列。 Pascal的System单元提供了两个与随机数有关的子程序：Randomize和Random。 Randomize过程用于初始化随机种子，其初始值取决于当前的系统时钟。 Random函数用于获取随机数 它有两种调用形式： Random，返回一个0到1之间（不包括1）的随机实数； Random(N)，返回0至N之间（不包括N)的随机整数，N为Word类型整数。另外，System单元中随机种子变量的标识符为RandSeed，你也可以手动修改它。随机数在信息学奥林匹克中可用于随机化搜索、穷举等算法，以优化其性能，也可用于在快速排序中选择关键数，以使其快速排序算法的最坏情况没有固定的相应数列。如果你希望使用了随机数的程序对同一个输入数据能有恒定的输出结果，可以设置RandSeed为一个定值。 ************************************************************************************************* 一个变态小算法 ******************************* 比较耗费机时，如果产生的数目少，就不要用这个算法了。计算的是在一个范围内（如1－1000），随机抽取n个不相等的随机数。我的思想就是先定义一个用来存放的数组（这当然是必须的啦，废话），然后定义了一个二维数组（感觉很浪费空间），这个二维数组是用来存放已经生成随机数的范围，当然不是随意存放了，要按照自然顺序，但这还不必要定义二维的。二维主要是存放一个范围，即某一列的第一行存放的是范围的小值，而第二行存放的是范围的大值。这样新生成的随机数肯定是在范围之外的，因为范围是已生成随机数的范围啊。这样，每次取随机数时，先随机抽取在某两个范围数组值之间，再在这两个范围数组值之间取随机数。基本上就是这样了。 public class random { int count=500; //个数 int min=1; //最小值 int max=1000; //最大值 int[] r=new int[count]; //随机数存储数组 int[][] k=new int[2][count+2]; //存储范围数组，用于判断范围值 //一维数组用来存放范围的小值，二维用来存放大值 int l=0; //存储空间大小 public random() //初始化范围 {k[0][0]=min-1; k[1][0]=min-1; k[0][2]=max+1; k[1][2]=max+1; l=3; } public int ran(){ //来一个可以制造随机整数的东西 return (int)(Math.random()*1000000000); } public void p(int x,int c) //用来比较存储数组 { for(int i=0;i随机数与当前值的偏差为1，与当前值合并 if(k[0][i]-x==1){ k[0][i]=x; if (k[0][i]-k[1][i-1]==1) //如果与前一个范围值的最大值的值差为1与前一个值合并 {k[1][i-1]=k[1][i]; move(l-1,i); l--;} break;} //如果与但前范围值差大于1 else{ for(int j=l;j>i;j--){ //后移数组为插入值留个位置 k[0][j]=k[0][j-1]; k[1][j]=k[1][j-1]; } k[0][i]=x; //插入值 k[1][i]=x; l++; if (k[0][i]-k[1][i-1]==1) //如果插入值与前一个范围值相差1，则与前一个值合并 {k[1][i-1]=k[1][i]; move(l-1,i); l--;} break; }} } } public void move(int m,int n) //与前一个范围值合并的函数 { for(int j=n;j随机数的主函数 r[0]=ran()%max+min; //插入第一个值 if(r0==1) k[1][0]=r[0]; else{ k[0][1]=r[0]; k[1][1]=r[0];} for(int i=1;i2) z=ran()%(l-2); //判断有多少个空隙，就是有多少个范围，然后随机选取一个 else z=0; r[i]=ran2(k[0][z+1],k[1][z]); //在选取的范围中制造随机数 p(r[i],i); } } public int ran2(int x,int y){ //在固定范围内制造随机数 int m=x-y; m=ran()%(m-1); return m+y+1; } /*public static void main(String[] args) { random rr=new random(); rr.r(); for(int i=0;i

Delphi 连续生成7个随机数 测试，源码可运行于Delphi7环境，主要是使用Delphi中的Random和Array函数来生成，每次生成一个随机数，并使用Showmessage来弹出框显示随机数，比如下面的代码：　　procedure TForm1.Button1Click(Sender: TObject); 　　Var 　　 I:integer; 　　 Num:array[0..6] of integer; 　　Begin 　　 Randomize; 　　 For I:=0 to 6 do 　　 begin 　　 Num[I]:=Random(10); 　　 Showmessage('第' IntToStr(i 1) '个随机数为：' FloatToStr(Num[i])); 　　 end; 　　end;

5,388

社区成员

262,730

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章