求助！我想在指定的100个汉字里随机生成名字？

[tmdsleep]

如题，求助！我想在指定的100个汉字里随机生成名字？

用 Randomize 我只会生成随机的汉字，但是如何在指定的汉字范围内随机生成呢？

我QQ 8858443

欢迎回帖，在线等！

[Frank.WU]

将姓字和名字的汉字分开，然后分别循环姓和名：
例如：

begin
for i := 0 to 
 s := 随机姓;
  for j := 0 to
 t := 随机名;
 pName := s + t;
end;

[hongss]

不是所有的汉字都能用来做姓的，把100个汉字里能做姓的提出来，作为一个枚举数组，同样处理做名的，然后随机序号，生成姓名

[lhy]

每个适合的汉字分配一个0~99的序号，然后生成两个0~99的随机数，然后转换成对汉字。

[SQLDebug_Fan]

[Quote=引用 2 楼 hongss 的回复:]
不是所有的汉字都能用来做姓的，把100个汉字里能做姓的提出来，作为一个枚举数组，同样处理做名的，然后随机序号，生成姓名
[/Quote]

这个想法值得借鉴，而且比较可行。

[ADSLAN]

我用两个字符串
一个存姓
一个存名
这样生成的就比较“真实”了

[lyhoo163]

[Quote=引用 2 楼 hongss 的回复:]
不是所有的汉字都能用来做姓的，把100个汉字里能做姓的提出来，作为一个枚举数组，同样处理做名的，然后随机序号，生成姓名
[/Quote]

可靠，思路清.

[MyHeroT_MaC]

膜拜大神了。

[tmdsleep]

好了 解决了.

////////////////////////////////产生随机字、//
procedure tform1.suijizi;
var
ziint:Integer;

begin
    Randomize;
    ziint:=20000+random(10000);
    zi:=WideChar(ziint);
end;

procedure tform1.suijiming;    //产生随机姓
const
xing: array[0..18] of string = ('刘','陈','杨','黄','周','吴','徐','胡','朱','高','林','郭','马','王','韩','赵','钱','孙','李');
var
zi1:WideString;
begin
edit1.clear;
  zi1:=xing[random(19)];
  suijizi;
  edit1.text:= zi1+zi;
  suijizi;
  edit1.text:=edit1.text+zi;
end;