[求助]delphi取字

whitelight 发布于 2006-03-26 20:23， 672 次点击

我想编一个DEKPHI小程序能按区位码逐一把windows字库中的汉字显示出来.请问怎样才能实现?

5 回复

makebest2006-03-27 12:35

共有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;

whitelight2006-03-27 16:01

谢谢了

ymwjz2006-05-04 11:56

那么如何区分unicode超大字符呢？

ymwjz2006-05-04 11:58

假设有一个汉字编码的文件，如何把一个文件中的汉字的单字、词及英文字母分开呢？

ymwjz2006-05-08 11:03

希望把全部程序都写出来!谢谢!