北大青鸟汉字注释机内码_delphi取汉字的机内码、UniCode码

delphi取汉字的机内码、UniCode码

//机内码 -> 汉字

Function MacCode2Chinese(AiUniCode : Integer) : String;

Var

ch, cl : Integer;

Begin

ch := AiUniCode Div 256;

cl := AiUniCode Mod 256;

Result := Chr(ch) + Chr(cl);

end;

//汉字 -> 机内码

Function Chinese2MacCode(AiChinese : String) : Integer;

Var

ch, cl : Integer;

Begin

ch := Ord(AiChinese[1]);

cl := Ord(AiChinese[2]);

Result := (ch shl 8) + cl;

end;

//UniCode -> 汉字

Function UniCode2Chinese(AiUniCode : Integer) : String;

Var

ch, cl : String[3];

s : String;

Begin

s := IntToHex(AiUniCode, 2);

cl := '$' + Copy(s, 1, 2);

ch := '$' + Copy(s, 3, 2);

s := Chr(StrToInt(ch)) + Chr(StrToInt(cl)) + #0;

Result := WideCharToString(pWideChar(s));

end;

//汉字 -> UniCode

Function Chinese2UniCode(AiChinese : String) : Integer;

Var

ch, cl : String[2];

a : array [1..2] of char;

Begin

StringToWideChar(Copy(AiChinese, 1, 2), @(a[1]), 2);

ch := IntToHex(Integer(a[2]), 2);

cl := IntToHex(Integer(a[1]), 2);

Result := StrToInt('$' + ch + cl);

end;

//机内码 -> 汉字

Function MacCode2Chinese(AiUniCode : Integer) : String;

Var

ch, cl : Integer;

Begin

ch := AiUniCode Div 256;

cl := AiUniCode Mod 256;

Result := Chr(ch) + Chr(cl);

end;

//汉字 -> 机内码

Function Chinese2MacCode(AiChinese : String) : Integer;

Var

ch, cl : Integer;

Begin

ch := Ord(AiChinese[1]);

cl := Ord(AiChinese[2]);

Result := (ch shl 8) + cl;

end;

//UniCode -> 汉字

Function UniCode2Chinese(AiUniCode : Integer) : String;

Var

ch, cl : String[3];

s : String;

Begin

s := IntToHex(AiUniCode, 2);

cl := '$' + Copy(s, 1, 2);

ch := '$' + Copy(s, 3, 2);

s := Chr(StrToInt(ch)) + Chr(StrToInt(cl)) + #0;

Result := WideCharToString(pWideChar(s));

end;

//汉字 -> UniCode

Function Chinese2UniCode(AiChinese : String) : Integer;

Var

ch, cl : String[2];

a : array [1..2] of char;

Begin

StringToWideChar(Copy(AiChinese, 1, 2), @(a[1]), 2);

ch := IntToHex(Integer(a[2]), 2);

cl := IntToHex(Integer(a[1]), 2);

Result := StrToInt('$' + ch + cl);

end;

北大青鸟汉字注释机内码_delphi取汉字的机内码、UniCode码相关推荐

java 截取汉字首字母,java 取汉字首字母
有时候,可能会有一些类似这样的需求: 对于这样的效果,我们可以有类似这样的解决方案: package bys.utils; import java.io.UnsupportedEncodingExce ...
北大青鸟汉字注释机内码_消防维修北大青鸟消防主机汉字注释如何书写？
北大青鸟消防主机有两种汉字注释.一种是用编程和调试软件编写文本注释,另一种是直接检查消防主机上的汉字内部代码并进入系统进行编辑.下面简要介绍使用编程和调试软件进行文本注释的方法. 1.序列号项目是自动 ...
Myeclipse中导入项目后java类中汉字注释出现乱码问题(已解决)
Myeclipse中导入项目后java类中汉字注释出现乱码问题(已解决) 参考文章: (1)Myeclipse中导入项目后java类中汉字注释出现乱码问题(已解决) (2)https://www.cn ...
php取汉字第一个字,php---------取汉字的第一个字的首字母
2019独角兽企业重金招聘Python工程师标准>>> 开发中用到的方法,取出第一个汉字的首字母: /** * 取汉字的第一个字的首字母 * @param string $str * ...
如何取汉字的第一个拼音字母(一)
如何取汉字的第一个拼音字母 #region $PBExportHeader$f_get_first_letter_2.srf global type f_get_first_letter_2 from ...
vc 文字转换到机内码，输入汉字和数字，输出一串16进制码（数字-〉ASII码，汉字—〉国标码）...
// 可以用,此程序实现的是是文字转换到机内码.机内码=国标码+8080H,不过学习了.//此程序是利用汉字在机器内输出就是机内码的原理,直接保存的,其实挺简单.//输入一串汉字和数字的混合字符, 经 ...
取汉字的拼音简码.如果是其它字符，则原样返回（2010）
以前用过很多中取汉子拼音的方法,一直有些字是取不出来的没办法,只有从微软的拼音库把所有的字取出来了,应该没有取不出来的字了.... '-------------------------------- ...
通过JS取汉字拼音首字母
Javascript实现的取中文拼音首字母,提供了多音字的选择. <html> <head> <meta http-equiv="Content-Type&qu ...
在Excel中取汉字的英文首字母或者全拼
与上一篇文章相关,在Excel中取汉字的英文首字母在Excel中使用,觉得麻烦的,直接点最下面,复制附件,里面有例子,非常好用非常好用需要说明的是,代码不是我写的,原作者如果看到了可以联系我,我会 ...
海湾主机汉字注释表打字出_海湾报警主机（JB-QG-GST5000）操作手册
报警主机正面示意图报警主机内部结构图控制器/模块总线.通讯总线.联动电源输出端子示意图 A1.B1,-,An.Bn:RS-485有极性通讯线端子,接火灾报警显示盘. GND.+24V:LD-D02 ...

北大青鸟汉字注释机内码_delphi取汉字的机内码、UniCode码

北大青鸟汉字注释机内码_delphi取汉字的机内码、UniCode码相关推荐

最新文章

热门文章