Delphi Unicode转中文
2016-01-04 16:59
239 查看
function UniCode2GB(S : String):String;
Var I: Integer;
begin
I := Length(S);
while I >=4 do begin
try
Result :=WideChar(StrToInt('$'+S[I-3]+S[I-2]+S[I-1]+S[I]))+ Result;
except end;
I := I - 4;
end;
end;
Var I: Integer;
begin
I := Length(S);
while I >=4 do begin
try
Result :=WideChar(StrToInt('$'+S[I-3]+S[I-2]+S[I-1]+S[I]))+ Result;
except end;
I := I - 4;
end;
end;
相关文章推荐
- delphi BLE 学习
- Delphi ORD
- delphi inttohex 整型到十六进制
- Delphi制作GSM Modem的短信发送控件
- Delphi中@,^,#,$分别表示什么?
- delphi 获取串口列表
- Delphi下 多显示器,将窗体显示于第二个显示器
- DELPHI编写服务程序总结
- Delphi & BC++ 按钮单击事件代码查找
- delphi数字签名验证及能够获取数字签名文件信息(利用wintrust.dll的导出函数,翻译一下)
- 解决EditorLineEnds.ttr被锁定导致Delphi2006-2010无法启动的问题
- DDuilib入门-设计出Delphi Align属性布局【三】
- Delphi 编写系统服务(服务控制线程:开始,暂停,继续,停止)
- Delphi 中 COM 实现研究手记(一)
- Delphi使用进行post数据时超时设置
- delphi中register, pascal, cdecl, stdcall, safecall
- delphi中INI 文件的创建与使用
- Delphi中Indy 10的安装和老版本的卸载
- Delphi调试DLL 不能调试 不能进入调试 注意!!!
- Delphi 的动态数组