fnode=161; {不同的字库，有不同的起始值} 

{UCDOS，GHOS，213，天汇汉字系统，HZK12，fnode=161} 

{CXDSO，汉字部分，fnode=162；符号部分（1--13区），fnode=161} 
var 

hz:string; {一个汉字占两个字节，所以作为字符串处理} 

offset:longint; {该汉字在字库里的位置，即偏移量} 

i,k:integer; 
... 
k:=length(hz); 
i:=1; 
while (i < k) do 
begin 

offset:=(ord(hz[i])-fnode)*94+(ord(hz[i+1])-161); 

offset:=offset*32; 

... 

i:=i+2; 
end; 
...