DELPHI生成随机字符串

最新推荐文章于 2023-05-31 16:03:04 发布
原创 最新推荐文章于 2023-05-31 16:03:04 发布 · 2.6k 阅读 · 1 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文介绍了如何使用Delphi编程语言生成包含字母和数字的随机字符串，并提供了代码示例。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

DELPHI生成随机字符串

var
    SourceStr,str:string;
    i:integer;
begin
    SourceStr:='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789';
    randomize;
    for i:=1 to 16 do
      str:=str+sourcestr[Random(62)+1];
    ShowMessage(str);
end;

[注：生成长度为16位数，取值范围为'A-Z'a-z''0-9'的随机数]

http://www.delphitop.com/html/zifuchuan/2366.html

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实例代码
09-04
主要介绍了截取指定符号之间的字符串(随机读取)delphi实例代码，有需要的朋友可以参考一下
Delphi 随机字符串函数
02-04 519
随机字符串函数 可以使用大写 小写 数字 以及混合 function RandomStr(Upper: boolean; Lower: boolean; Number: boolean; StrLength: Integer): string; var i: Byte; s: string; begin if Upper then s := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' else s := ''; if Lower then .
delphi 生成一千万15位随机字符串
全粘工程师
08-20 695
根据字符串生成对应的数字编码。
delphi random,在delphi中生成随机数
weixin_36409144的博客
01-15 528
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...
随机字符串/密码生成器
07-21
在网络安全中，随机字符串通常用于生成一次性密码（OTP）、加密密钥、验证码等，因为它们难以被猜测或破解。真正的随机性是通过随机数生成器（RNG）来实现的，这可以是硬件RNG，也可以是软件实现的伪随机数生成器...
AES.rar_AES 加密_AES 简单_aes 字符串_delphi 加密
09-20
总的来说，AES加密在Delphi中可以通过专门的库和函数实现，提供了对字符串等数据的高效保护。理解AES的工作原理和如何在Delphi中使用它，对于任何希望保护其应用程序数据的开发者来说都是必要的技能。
又一个字符串加密解密实例，Delphi代码下载
05-16
此外，了解源代码中的实现方式可以帮助开发者理解加密解密流程的细节，比如密钥的生成方法、密文的表示形式以及如何处理不同长度的字符串。这样的实例对于初学者来说是宝贵的教育资源，他们可以借此了解如何在实际...
深入解析Delphi中的字符串加密与解密技术
本文重点讨论在Delphi编程语言中进行字符串加密与解密的过程和相关知识点。Delphi是Borland公司（现Inprise公司）开发的一种集成开发环境（IDE），使用面向对象的Pascal语言，广泛用于开发各种应用程序。尽管Delphi...
随机生成汉子、字母和数字
qq_39507419的博客
05-31 391
1、随机生成三个汉字 =CONCATENATE(CHAR((INT(16+RAND()*38+160)256)+INT(94RAND())+160),CHAR((INT(16+RAND()*38+160)256)+INT(94RAND())+160),CHAR((INT(16+RAND()*38+160)256)+INT(94RAND())+160)) 2、随机生成三个字母 =CONCATENATE(CHAR(RANDBETWEEN(97,99)),CHAR(RANDBETWEEN(97,99)),CHAR
随机生成汉字[vb]
05-09
随机生成汉字[vb]~~~~~~~~~~~~~~~~~
随机生成字符串
创业轨迹
03-11 1119
function btnGenerateClick(Sender: TObject): string; {max length of generated password} const intMAX_PW_LEN = 10; var i: Byte; s: string; begin {if you want to use the A..Z characters} if cbAZ.
[delphi]生成随机字符(密码)函数
怪才技术家园
02-23 3244
最近在做一个小软件，需要随机生成一些密码之类的，于是乎就整了这么一个函数，用于随机生成一定长度的大/小写字母和0-9的数字。 function GetRandStr(len : Integer; lowercase : Boolean = True; num : Boolean = True; uppercase : Boolean = False) : string; const u
生成随机文件名（年月日+5位随机数）
yeaper_yeo的博客
03-13 1764
fun getRandomFileName(): String { val simpleDateFormat = SimpleDateFormat("yyyyMMdd") val date = Date() val str = simpleDateFormat.format(date) // 时间 val random = Random() val
用delphi生成GBK 中文编码 表(4~5) GBK/4~5: 0xAA40~0xFEA0(部分) 扩充汉字 包括繁体 0xA...
weixin_33882452的博客
09-30 190
http://www.cnblogs.com/jfyes/archive/2009/09/24/1573638.html   GBK 中文编码： (* GBK是GB2312的扩展，是向上兼容的，因此GB2312中的汉字的编码与GBK中汉字的相同。 GBK中每个汉字仍然包含两个字节， 第一个字节的范围是0x81-0xFE（即129-254），第二个字节的范围是0x40-0xFE（即64-254）。...
DELPHI生成32位随机字符串（数字和大写字母混合）
wozengcong的专栏
12-08 4095
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxLookAndFeels, Acti
Delphi生成随机数
qiume的专栏
02-27 7322
procedure TForm1.Button1Click(Sender: TObject);begin Randomize; // 初始化，也可以将值赋予 RandSeed Random(1000); // 生成 大于等于0且小于1000 的随机数end; 需要注意的一点是：如果在循环内生成随机数，只需在循环开始前执行一次初始化，如：var // 摘于Del
记录一段随机生成汉字的函数!
电脑屋专门提供电脑与网络方面的相关知识,尤其针对网站的一些教程和一些模板的制作与下载！
05-11 148
【代码】记录一段随机生成汉字的函数!
游戏中的名字随机生成代码
热门推荐
firebird321的专栏
07-10 1万+
{优快云:CODE:dsf}
Delphi字符串操作技巧全解析
Delphi是一种面向对象的编程语言，它提供了丰富的字符串处理功能，可以帮助开发者高效地进行字符串操作和处理。接下来，我将对给定文件信息中提到的各个知识点进行详细解释： 1. 产生随机密码 在Delphi中，可以通过...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值