var no:integer; BiHua:integer; str:string; // str[40] BiHuaI:integer; ch1:char; ch2:char; len:integer; begin str:=chnstr; BiHuaI:=1; BiHua:=0; len:=length(str); while BiHuaI<=len do begin ch1:=str[BiHuaI]; BiHuaI:=BiHuaI+1; if (ord(ch1)>=176) and (BiHuaI<=len) then begin ch2:=str[BiHuaI]; //BiHuaI:=BiHuaI+1; ----这一行在只查一个汉字的时候用不着 2002.10 no:=(ord(ch1)-176)*94+(ord(ch2)-160); BiHua:=ord(BiHuaTable[no]); end else begin BiHua:=0; end; break; // 只要查出第一个汉字即可 end;
收藏
推荐
评论加载中…
