[求助]delphi取字
我想编一个DEKPHI小程序能按区位码逐一把windows字库中的汉字显示出来.请问怎样才能实现?
共有94区,每区94位,这个函数返回某区的所有字符:
function GetQu(qu:Integer):String;
var
i : Integer;
begin
if (qu<1) or (qu>94) then
begin result:=''; exit; end;
setlength(result,94*2);
for i:=1 to 94 do
begin
result[i*2-1] := char($a0 + qu);
result[i*2] := char($a0 + i);
end;
end;