［高分请教］想写一个打字练习的东西,汉字要求是生僻字,如何调用字库呢?

Question

写一个打字练习软件，要求汉字和字母结合。
问题：汉字如何调用呢？应该是调用Microsoft的字库吧，如何搞，请指点～！～！～！

Answer 1

如果,你的生僻字只要求在gb2312的范围内,那就简单了,gb2312共有6763个汉字,其中常用字为3755个,另外3008为次用字(生僻字),还有682个符号.
你只要将区位设定为5601-8794(用随机生成),就可以了(汉字的内码为D8A1-F7FE)

Answer 2

keiy() ( ) 信誉：105 --------------
那如何调用呢?老大,200分不够吗?

Answer 3

随机生成一个生僻字的函数:
function genahz:string;
var
 q,w:word;
begin
     Randomize;
  q:=$d8+random($1f);
  w:=$a1+random($5d);
  genahz:=chr(q)+chr(w);
end;

Answer 4

符合你要求较完整的程序(含字符及生僻字):
function genahz:string;
var
 c:byte;
 q,w:word;
begin  c:=random(10);
  if c<=5 then
  begin
  q:=$d8+random($1f);
  w:=$a1+random($5d);
  genahz:=chr(q)+chr(w);
  end else
  begin
    c:=$41+random($19);
    genahz:=chr(c);
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  s:string;
begin
s:='';
  Randomize;
for i:=1 to 100 do
  s:=s+genahz();
memo1.lines.add(s);
end;