//机内码 -> 汉字
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;
分享到:
相关推荐
delphi2009 Unicode转汉字,汉字转Unicode源码 高手就不用看了.
Delphi演示如何实现UniCode编码、汉字的繁简互转功能,同时将字符转换为unicode码值(十六进制): 常用编码: codepage=936 简体中文GBK codepage=950 繁体中文BIG5 codepage=437 美国/加拿大英语 code...
delphi7调用delphi2009生成的dll文件会出现乱码问题。是unicode的原因 终于找到了UTF-8、Unicode格式转换函数
输入一段字符串(汉字或者英文),可将其转换为Unicode编码或AscII编码。 其中有一段代码避免程序的重复执行(调试通过),原理:在程序启动时将Application的Title特性字段的值暂时改变。利用Windows API函数Find...
利用反编译器DeDe反编译Delphi可执行文件.生成的.dfm文件中有汉字Unicode码,利用转换工具.可以清楚的知道是窗体上的哪个控件..
完整的汉字笔画数笔顺数据库,包含ID、汉字、笔画数、笔顺、Unicode、GB码信息i。 每个汉字带有笔顺,可以通过笔顺知道汉字的构造和书写顺序; 可以通过给定一个笔顺,快速知道笔画数,比如笔顺为“34”,则笔画数...
1: 0 - 只取各个汉字声母的第一个字母; 1 - 全取 2: 0 - 遇到不能翻译的字符不翻译; 1 - 翻译成 '?' (本选项目针对全角字符) 3: 0 - 生成的串不包括非数字, 字母的其他字符; 1 - 包括 (控制全角的要输出非...
从Delphi7开始,窗体文件dfm里的汉字都变成了#28162#31992之类的形式,看起来非常不直观。 而且在delphi2009,delphi2010里,...因此,做了一个转换器,可以将Unicode数字表示的汉字#28162#31992转换为正确显示的汉字。
本源码是我写的一个小工具,用于斯凯平台开发 功能:汉字转16进制编码(unicode bigend)
支持Delphi XE XE2 XE3 XE4的Uincode TIniFiles单元,保存的ini文件为unicode编码
从Delphi7开始,窗体文件dfm里的汉字都变成了#...因此,做了一个转换器,可以将Unicode数字表示的汉字#28162#31992转换为正确显示的汉字。 1.1版的改进,可以反向转换,即将含汉字的文件转换为#28382#33288之类的格式。
完整的汉字笔画数笔顺数据库,包含ID、汉字、笔画数、笔顺、Unicode、GB码信息i。 每个汉字带有笔顺,可以通过笔顺知道汉字的构造和书写顺序; 可以通过给定一个笔顺,快速知道笔画数,比如笔顺为“34”,则笔画数...
从Delphi7开始,窗体文件dfm里的汉字都变成了#...因此,做了一个转换器,可以将Unicode数字表示的汉字#28162#31992转换为正确显示的汉字。 1.2版的改进,可以反向转换,即将含汉字的文件转换为#28382#33288之类的格式。
可以查看文字编码, 用delphi开发, 对字符处理工作者也许有用的。
使用Delphi编写的Unicode编码转换器,包含源码,可反相转换,可转换汉字。
其实传回的只要utf8转为unicode的,但由于一开始图简单,用了 result:= indyhttp.post(url,img) 这样的方法来直接获取返回值,导致返回值被indy又编码了一次。然后再解码就总是不正常。 后改为post内用流接收...
可以把中文转换成拼音,支持首字母和全拼,比较简单,实用就行,支持中英文字符混排等。字库为unicode编码,可以维护,D7下通过。
完整的汉字笔画数笔顺数据库,包含ID、汉字、笔画数、笔顺、Unicode、GB码信息。 每个汉字带有笔顺,可以通过笔顺知道汉字的构造和书写顺序; 可以通过给定一个笔顺,快速知道笔画数。 该数据库为access的aoo...
源码:支持unicode全汉字(共20902个)转全拼带声调 测试20902个汉字转换时间260ms 调用示例: hzpy('龟龠龡龢龣龤龥', ' ', LIST); guī yuè chuī hé jué xié yuè 此源码可应用到数据库实现中文同音检索
用于delphi操作JSON的库函数单元,superobject中自动默认为UNICODE编码,处理中文会出现乱码