这样的随机数据如何得出 ( 积分: 50 )

S

shenfeng_126

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-06

• #1

我要向一个表中批量插入一些数据，其中一个字段的值是用程序生成一个随机数
随机数据的规则是这样的：共6位，前两位是数据，中间两位是字母，后两位也是数字，例如：AC12UI

请问这样的随机数如何得出？？

 

隐

隐士山人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-07

• #2

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
Randomize;//随机初始化
s:='QWERTYUIOPASDFGHJKLZXCVBNM';
showmessage(s[1+Random(25)]+s[1+Random(25)]+inttostr(Random(10))+inttostr(Random(10))+s[1+Random(25)]+s[1+Random(25)]);
end;

 

李

李翔鹏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-07

• #3

楼上应该可以

 

C

catbrother

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-07

• #4

高，实在是高
s里面的26个英文字母随机列出，然后用程序随机取出2个
这样可以扩展到随意的N个字符

 

Z

zdwjetlee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-07

• #5

procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
showmessage(chr(65+random(26))+chr(65+random(26))
+inttostr(Random(10))+inttostr(Random(10))
+chr(65+random(26))+chr(65+random(26)));
end;
这样简单一点吧

 

李

李翔鹏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-07

• #6

都是牛人

 

Z

zhangktkt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-07

• #7

学习学习

都是前辈

 

刘

刘卫民

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-08

• #8

学习中

 

M

mawei0913_green

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-08

• #9

TO zdwjetlee
这位高人，里面的65代表的什么意思呀，请明示
其他高人要是知道，也请指教

 

C

catbrother

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-12

• #10

65去查ASC码对应表
如果没记错的话，应该是代表'A'