2,497
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
winxkm 2005-07-11
- 打赏
- 举报
写法如下：
function GetRandomString:string;
var
len,I:byte;
Str:string;
begin
len:=random(100);//获取要随机生成字符的长度！
For I:=1 to len do
Str:=str+chr(random(128));
result:=str;
end;
function GetRandomString:string;
var
len,I:byte;
Str:string;
begin
len:=random(100);//获取要随机生成字符的长度！
For I:=1 to len do
Str:=str+chr(random(128));
result:=str;
end;
hhzqf1980 2005-07-11
- 打赏
- 举报
你没有看懂我的问题啊
我想随机生成一个长度为N 的字符串
其中包括数字，大写字母，小写字母，@ 和 #
我想随机生成一个长度为N 的字符串
其中包括数字，大写字母，小写字母，@ 和 #
winxkm 2005-07-11
- 打赏
- 举报
晕！ACSIIcode中全有！
hhzqf1980 2005-07-11
- 打赏
- 举报
我的要求是其中包括数字，大写字母，小写字母，@ 和 #
winxkm 2005-07-11
- 打赏
- 举报
在使用random(255)之前 请初始化randomize();否则每次生成的都是一样的
xx_adam 2005-07-11
- 打赏
- 举报
大小写数字可以用radom函数呀，radom(255) 然后转换成相应的asscII码就行了吧！
paranoia190 2005-07-11
- 打赏
- 举报
自己写！
