首页 > TAG信息列表 > GenerateChineseWords
Delphi 生成随机汉字函数GenerateChineseWords
根据c#改编而来，很多年了。 function GenerateChineseWords(count: integer): string; var i: integer; regionCode, positionCode: integer; regionCode_Machine, positionCode_Machine: integer; chineseWords: string; begin Randomize; for i := 0 to count - 1 do