//-----------------------------------------------
function getPY (InputString:string):string;
var
lc_FirstLetter :string; //存放国标一级汉字不同读音的起始区位码对应读音
ls_ReturnStr :string ;//返回串
li_SecPosValue :array [1..23] of integer; //存放国标一级汉字不同读音的起始区位码
li_SectorCode :integer;//汉字区码
li_PositionCode :integer; //汉字位码
li_SecPosCode :integer;//汉字区位码
li_offset :integer;//二级字库偏移量
i , j ,n :integer;
py_int:string;
//k:integer;
begin
//Set initial value
lc_FirstLetter :='ABCDEFGHJKLMNOPQRSTWXYZ';
py_int:='1637,1833,2078,2274,2302,2433,2594,2787,3106,3212,3472,3635,3722,3730,3858,4027,4086,4390,4558,4684,4925,5249,5600';
for i:=1 to 23 do //对各拼音数据付值
li_SecPosValue[i]:=strtoint(copy(py_int,5*(i-1)+1,4));
ls_ReturnStr :='';
n:=Length(InputString);
i:=1 ;
//依次处理as_InputString中每个字符
while i<=n do begin
If word(inputString[i])<128 then // 非汉字
begin
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余3页未读,立即下载