【Delphi 开箱即用 2】生成不重复的随机数

已于 2024-02-16 16:54:34 修改
阅读量1k 收藏 8
点赞数 29
分类专栏： Delphi 开箱即用 文章标签： 随机数
于 2023-12-25 10:54:59 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/gust2013/article/details/135194135
版权
本文介绍了一个名为TRandomEngine的类，它继承自TObject，用于在特定范围内生成唯一随机数。该类包含私有变量和方法，如设置范围、获取随机数和检查数字使用状态，以及公共的构造、析构函数和属性管理。
摘要由CSDN通过智能技术生成

请添加图片描述

核心代码:

type
  // 定义一个名为 TRandomEngine 的类，继承自 TObject
  TRandomEngine = class(TObject)
  private
    // 私有成员变量
    FSelected             : TBits;    // 用于跟踪已选择的数字的位集合
    FArrSize, FNumbersUsed: longint;   // 数组大小和已使用的数字数量
    FMinNumber, FMaxNumber: longint;   // 允许的最小和最大数字范围
    FUnique               : boolean;   // 指示是否选择唯一数字的标志
    FRandSeed             : Integer;   // 随机数生成器的种子
    // 私有方法
    procedure SizeSelArray;           // 调整选择数组的大小
    procedure SetFMinNumber(NewValue: longint);   // 设置最小数字的方法
    procedure SetFMaxNumber(NewValue: longint);   // 设置最大数字的方法
    function GetFNumbersFree: longint;            // 获取未使用的数字数量的方法
  public
    // 公共成员
    constructor Create;               // 类的构造函数
    destructor Destroy; override;    // 类的析构函数
    procedure Reset;                  // 重置随机数生成器状态的方法
    function GetRandom: longint;      // 获取一个随机数的方法
    function IsUsed(Index: longint): boolean;    // 检查指定索引的数字是否已经被使用的方法
    // 属性
    property MinNumber: longint read FMinNumber write SetFMinNumber;    // 最小数字的属性
    property MaxNumber: longint read FMinNumber write SetFMaxNumber;    // 最大数字的属性
    property Unique: boolean read FUnique write FUnique;               // 是否选择唯一数字的属性
    property nRandSeed: Integer read FRandSeed write FRandSeed;        // 随机数生成器的种子属性
    property NumbersUsed: longint read FNumbersUsed;                   // 已使用的数字数量的属性
    property NumbersTotal: longint read FArrSize;                      // 数组总大小的属性
    property NumbersFree: longint read GetFNumbersFree;               // 未使用的数字数量的属性
  end;

点击下载Demo[完整源码]

D-Nolan
关注
  • 29
    点赞
  • 踩
  • 8
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
专栏目录
delphi random_delphi产生随机数
weixin_39935092的博客
12-21 2211
//用delphi产生不重复的随机数******************************************************************************************varaa : array[1..36] of string[2];//aa数组为需要随机排列的数组，{先把1..36按顺序给aa数组赋值}procedure TForm1.FormC...
ASP生成随机数 ASP生成不重复随机数
01-20
ASP不重复随机数：方法一： 已测使用的时候需要注意里面的分割字符串的字符。 代码如下: <% ‘生成的是一个不重复的数组 Function GetRnd(lowerNum,upperNum) Dim unit,RndNum,Fun_X unit = upperNum – ...
delphi生成随机数
06-18
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<l;i++){ if(x<k[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<m;j++){ k[0][j]=k[0][j+1]; k[1][j]=k[1][j+1];} k[0][m]=0; k[0][m]=0; } public void r(){ //生成随机数的主函数 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;i<count;i++){ int z; if(l>2) 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<rr.count;i++) }*/ }
Delphi 中生成指定范围不重复的随机数
LMin_HDS的博客
11-23 6190
刚开始学习Dephi，写这个相当于学习笔记，有不正确的地方，请各位大神多多指教 生成指定范围的不重复大的随机数  指定随机数的范围，生成不重复的随机数 while si             begin               randSum[si]:= Random(maxSum-minSum)+minSum;               //maxSu
Delphi5实现随机数生成并查找最大值
最新发布
weixin_52116519的博客
07-25 183
函数通过获取系统时钟的当前时间（或其他系统特定的随机源）来自动设置随机数生成器的种子。这样，每次程序运行时，由于系统时间的不同，都会得到不同的随机数序列。设置edit控件的readonly属性为true。在这，上一篇文章使用过。遍历数组来找到最大值。
delphi随机数生成
varick_zhong的专栏
12-28 1523
Randomize;   ShowMessage(IntToStr(Random(100)));
delphi random,在delphi中生成随机数
weixin_36409144的博客
01-15 476
i want to create a random number in delphi and assign it to file as a file name. I managed to do that but when i click button to generate number it always start with a 0. Any idea how to fix itprocedu...
delphi 产生随机数
weixin_33995481的博客
11-01 190
检举|2010-05-08 09:41你的样子20 | 分类：其他编程语言 | 浏览6314次 怎样产生随机数 条件是  1.这些随机数每个都不同（5个数吧）  2.随机数的范围在1到35之间 我要把他们显示在 memo1 中  怎么显示呢 谢谢大侠们了 回答好了 加 50       procedure TForm1.Button1Click(Sender:TObject); v...
Delphi生成随机数
qiume的专栏
02-27 7218
procedure TForm1.Button1Click(Sender: TObject);begin Randomize; // 初始化，也可以将值赋予 RandSeed Random(1000); // 生成 大于等于0且小于1000 的随机数end; 需要注意的一点是：如果在循环内生成随机数，只需在循环开始前执行一次初始化，如：var // 摘于Del
VBA生成不重复的随机数源码.txt
04-13
VBA生成不重复的随机数源码.txt
易语言取不重复随机数
07-21
在易语言中，生成不重复随机数是一项常见的需求，特别是在游戏开发、数据分析或者算法设计等场景。本文将深入探讨如何在易语言中实现取不重复随机数的功能。 首先，我们需要了解易语言中的随机数生成函数。在易语言...
delphi的随机数的产生及运算
09-01
随机数的产生很重要，它可用于验证登录等等，因此很重要该文档是着重与怎么实现delphi开发技术的随机数的产生。
delphi产生不同随机数
10-14
产生不同随机数，利用delphi产生不同随机数。
Delphi 连续生成7个随机数 测试源码.rar
07-10
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;
delphi 编写的多功能的随机数生成器 支持任意位数，任意区间，保留任意位小数（小于9），支持导出csv,excel格式,绿色无限制
03-01
delphi 编写的多功能的随机数生成器，支持任意位数，任意区间，保留任意位小数（小于9），支持导出csv,excel格式,绿色无限制.
VBS 生成不重复随机数代码[0-10]
09-05
上面的代码使用了一个数组 `Z` 来存储生成的随机数，并使用 `GetRnd` 函数来生成不重复的随机数。`GetRnd` 函数使用循环来生成随机数，并检查生成的随机数是否已经存在于数组 `Z` 中，如果存在，则重新生成随机数。 ...
Java实现生成n个不重复的随机数
08-19
在上面的代码中，我们使用了Vector来存储随机数，并使用while循环来生成随机数，直到生成了10个不重复的随机数。 生成n个不重复的随机数可以使用List或Vector来存储可能出现的数字，然后随机生成索引，根据索引从...
Delphi随机数
weixin_34066347的博客
06-15 416
在uses引用math，它提供了几个取随机数的函数；代码如下：procedure TForm1.Button1Click(Sender: TObject);beginrandomize;//初始化内置的随机数生成器edit1.Text:=inttostr(randomrange(1000,9999));end;//randomrange（随机数起始范围，随机数结束范围） ...
Delphi常用随机函数
热门推荐
kimifdw的专栏
02-19 2万+
1. Random function Random [ ( Range: Integer) ];：产生一个0 Random(10); //随机产生一个大于等于0小于10的数 使用Random之前，要先用Randomize过程或RandSeed函数来初始化随机数产生器。   2. RandomFrom function RandomFrom(const AValues: array o
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

D-Nolan

请我喝杯咖啡吧，鼓励一下创作！

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值