汉字转化为点阵信息

gyping 2003-10-17 11:56:42

各位高手：

如何把汉字、数值转化为16*16的点阵信息？十分急！

请指教！谢谢！

...全文

85 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

roc_fu 2003-10-17

打赏
举报

UCdos有 16*16 24*24的点阵字库，很好取的

sundayzhao 2003-10-17

打赏
举报

首先找一个16*16的汉字库，好像Windows有，但是忘了什么文件。好像是CHS16.FON
根据汉字内码得到汉字在汉字库中的位置。然后从汉字库中取出汉字点阵信息即可。
var oldFont:Array[0..31] of Char;
str:='汉'
len:=((ord(str[1])-$B0)*94+(ord(str[2])-$a1));
len:=len*32;
FileSeek(FileHdle,len,0);
FileRead(FileHdle,oldfont,32);
oldfont中就是汉字点阵信息。