简体转繁体,我觉得还不错
来源:互联网 发布:胡雅婷 知乎 编辑:程序博客网 时间:2024/05/10 13:13
function UnicodeEncode(Str:string;CodePage:integer):WideString;
var
Len:integer;
begin
Len:=Length(Str)+1;
SetLength(Result,Len);
Len:=MultiByteToWideChar(CodePage,0,PChar(Str),-1,PWideChar(Result),Len);
SetLength(Result,Len-1); //end is #0
end;
function UnicodeDecode(Str:WideString;CodePage:integer):string;
var
Len:integer;
begin
Len:=Length(Str)*2+1; //one for #0
SetLength(Result,Len);
Len:=WideCharToMultiByte(CodePage,0,PWideChar(Str),-1,PChar(Result),Len,nil,nil);
SetLength(Result,Len-1);
end;
function Gb2Big5(Str:string):string;
begin
SetLength(Result,Length(Str));
LCMapString(GetUserDefaultLCID,LCMAP_TRADITIONAL_CHINESE,
PChar(Str),Length(Str),
PChar(Result),Length(Result));
Result:=UnicodeDecode(UnicodeEncode(Result,936),950);
end;
function Big52Gb(Str:string):string;
begin
Str:=UnicodeDecode(UnicodeEncode(Str,950),936);
SetLength(Result,Length(Str));
LCMapString(GetUserDefaultLCID,LCMAP_SIMPLIFIED_CHINESE,
PChar(Str),Length(Str),
PChar(Result),Length(Result));
end;
var
Len:integer;
begin
Len:=Length(Str)+1;
SetLength(Result,Len);
Len:=MultiByteToWideChar(CodePage,0,PChar(Str),-1,PWideChar(Result),Len);
SetLength(Result,Len-1); //end is #0
end;
function UnicodeDecode(Str:WideString;CodePage:integer):string;
var
Len:integer;
begin
Len:=Length(Str)*2+1; //one for #0
SetLength(Result,Len);
Len:=WideCharToMultiByte(CodePage,0,PWideChar(Str),-1,PChar(Result),Len,nil,nil);
SetLength(Result,Len-1);
end;
function Gb2Big5(Str:string):string;
begin
SetLength(Result,Length(Str));
LCMapString(GetUserDefaultLCID,LCMAP_TRADITIONAL_CHINESE,
PChar(Str),Length(Str),
PChar(Result),Length(Result));
Result:=UnicodeDecode(UnicodeEncode(Result,936),950);
end;
function Big52Gb(Str:string):string;
begin
Str:=UnicodeDecode(UnicodeEncode(Str,950),936);
SetLength(Result,Length(Str));
LCMapString(GetUserDefaultLCID,LCMAP_SIMPLIFIED_CHINESE,
PChar(Str),Length(Str),
PChar(Result),Length(Result));
end;
- 简体转繁体,我觉得还不错
- 随转觉得还不错
- 繁体转简体&简体转繁体
- 简体转繁体 繁体转简体
- 别人的观点,我觉得还不错
- 网页简体转繁体
- 简体转繁体
- C#繁体转简体
- JS简体转繁体
- php简体转繁体
- PHP繁体转简体
- php简体转繁体
- java 简体转繁体
- 实现简体转繁体,繁体到转体
- 送上一段箴言,我觉得还不错^_^:
- Vb 实现简体转繁体
- ASP简体转繁体函数
- ASP简体转繁体函数
- 水果食用大全 -- 果品食疗 - 李
- Tomcat中配置和使用JNDI DataSource
- java面试笔试题大汇总 及c/c++面试试题转载
- J2EE应用性能问题的常用优化项目
- [旧闻]调查:NetBeans的调试性能令人满意
- 简体转繁体,我觉得还不错
- 你讲英文有口音吗?--FT
- JavaMail API简介
- 关于初始化列表
- 关于线程同步的一点心得
- [旧闻]专访:NetBeans平台发展的未来
- 关于路径
- Notes Toolkit
- 数据同步网上转载