知道一个汉字的unicode码,怎么把它打出来
2个回答
展开全部
/ /机器代码 - >字符
功能MacCode2Chinese(AiUniCode:整数):字符串;
CH,CL:整数;
CH:= AiUniCode股息256;
CL:= AiUniCode国防部256;
结果:= CHR(CH)+ CHR(CL);
结束;
/ /汉字 - >机代码
功能Chinese2MacCode(AiChinese:字符串):整数;
CH,CL:整数;
CH:=条例(AiChinese [1]);
CL:=条例(AiChinese [2]);
结果:=(CH SHL 8)+发光;
结束;
/ / UNICODE - >字符
功能UniCode2Chinese(AiUniCode:整数):字符串;
CH,CL:字符串[3];
S:字符串;
s := IntToHex以及(AiUniCode,2);
CL:='$'+ COPY(S,1,2);
CH:='$'+ COPY(S,3,2); BR /> S:= CHR(StrToInt(CH))+ CHR(StrToInt(CL))+#0;
结果:= WideCharToString(pWideChar(S));
结束;
/ /汉字 - > UNICODE
功能Chinese2UniCode(AiChinese:字符串):整数;
CH,CL:字符串[2];
一:数组[ 1 .. 2]为char;
StringToWideChar(复制(AiChinese,1,2),@(A [1]),2);
CH:= IntToHex以及(整数(一[2]),2);
CL:= IntToHex以及(整数([1]),2);
结果:= StrToInt('$'+ CH + CL);
>结束;
功能MacCode2Chinese(AiUniCode:整数):字符串;
CH,CL:整数;
CH:= AiUniCode股息256;
CL:= AiUniCode国防部256;
结果:= CHR(CH)+ CHR(CL);
结束;
/ /汉字 - >机代码
功能Chinese2MacCode(AiChinese:字符串):整数;
CH,CL:整数;
CH:=条例(AiChinese [1]);
CL:=条例(AiChinese [2]);
结果:=(CH SHL 8)+发光;
结束;
/ / UNICODE - >字符
功能UniCode2Chinese(AiUniCode:整数):字符串;
CH,CL:字符串[3];
S:字符串;
s := IntToHex以及(AiUniCode,2);
CL:='$'+ COPY(S,1,2);
CH:='$'+ COPY(S,3,2); BR /> S:= CHR(StrToInt(CH))+ CHR(StrToInt(CL))+#0;
结果:= WideCharToString(pWideChar(S));
结束;
/ /汉字 - > UNICODE
功能Chinese2UniCode(AiChinese:字符串):整数;
CH,CL:字符串[2];
一:数组[ 1 .. 2]为char;
StringToWideChar(复制(AiChinese,1,2),@(A [1]),2);
CH:= IntToHex以及(整数(一[2]),2);
CL:= IntToHex以及(整数([1]),2);
结果:= StrToInt('$'+ CH + CL);
>结束;
追问
不懂
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |