用delphi如何生成随机的中文汉字.高手指点下.... ( 积分: 100 )

用delphi如何生成随机的中文汉字.高手指点下....

高手帮助一一...谢谢了......

随机取汉字的内码。。。
● GBK/2: GB2312 汉字

B0 ０ １ ２ ３ ４ ５ ６ ７ ８ ９ Ａ Ｂ Ｃ Ｄ Ｅ Ｆ
Ａ 啊 阿 埃 挨 哎 唉 哀 皑 癌 蔼 矮 艾 碍 爱 隘
Ｂ 鞍 氨 安 俺 按 暗 岸 胺 案 肮 昂 盎 凹 敖 熬 翱
Ｃ 袄 傲 奥 懊 澳 芭 捌 扒 叭 吧 笆 八 疤 巴 拔 跋
Ｄ 靶 把 耙 坝 霸 罢 爸 白 柏 百 摆 佰 败 拜 稗 斑
Ｅ 班 搬 扳 般 颁 板 版 扮 拌 伴 瓣 半 办 绊 邦 帮
Ｆ 梆 榜 膀 绑 棒 磅 蚌 镑 傍 谤 苞 胞 包 褒 剥

......

FD ０ １ ２ ３ ４ ５ ６ ７ ８ ９ Ａ Ｂ Ｃ Ｄ Ｅ Ｆ
４ 鼲 鼳 鼴 鼵 鼶 鼸 鼺 鼼 鼿 齀 齁 齂 齃 齅 齆 齇
５ 齈 齉 齊 齋 齌 齍 齎 齏 齒 齓 齔 齕 齖 齗 齘 齙
６ 齚 齛 齜 齝 齞 齟 齠 齡 齢 齣 齤 齥 齦 齧 齨 齩
７ 齪 齫 齬 齭 齮 齯 齰 齱 齲 齳 齴 齵 齶 齷 齸
８ 齹 齺 齻 齼 齽 齾 龁 龂 龍 龎 龏 龐 龑 龒 龓 龔
９ 龕 龖 龗 龘 龜 龝 龞 龡 龢 龣 龤 龥 郎 凉 秊 裏
Ａ 隣

FE ０ １ ２ ３ ４ ５ ６ ７ ８ ９ Ａ Ｂ Ｃ Ｄ Ｅ Ｆ
４ 兀 嗀 﨎 﨏 﨑 﨓 﨔 礼 﨟 蘒 﨡 﨣 﨤 﨧 﨨 﨩
５ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
６ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
７ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
８ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
９ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
Ａ ?

说的具体一点,最好能给段代码.

一个汉字是一个word表示
查一下汉字编码范围,比如范围是10000--20000
var
hz:word;
st:widestring;
begin
hz:=random(10000)+10000;
st:=pwidechar(Hz);
end;
大概就是这样吧

function randomhz:string;
var
c1,c2:chr;
begin
c1:=128+random(128);
c2:=128+random(128);
result:=c1+c2;
end;