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

Question

如题，求助！我想在指定的100个汉字里随机生成名字？用 Randomize 我只会生成随机的汉字，但是如何在指定的汉字范围内随机生成呢？我QQ 8858443欢迎回帖，在线等！

Answer 1

将姓字和名字的汉字分开，然后分别循环姓和名：
例如：
begin
for i := 0 to 
 s := 随机姓;
  for j := 0 to
 t := 随机名;
 pName := s + t;
end;

Answer 2

网上有百家姓
找到,把那些姓做成一个字符串列表.
然后还有其它的文字,把那些文字做成名字列表.想得到名字的时候,使用Random随机抽取姓.然后再随机抽取名就可以了
一般这个做注册机很有用

Answer 3

好了 解决了.
////////////////////////////////产生随机字、//
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;