最近在做一个短信相关的项目。从联通网关提供过来的短信都是ucs2编码的。
在网上找了些资料，找到一些使用java语言本身带的api转换的代码，但没有合适的delphi源码，所以经研究后自己写了一个，很简单的：
函数ucs2togbk（const nifewalue：string）：string;
var
我：整数；
开始
结果：='';
对于I：= 1到长度（无效）Div 2-1做
结果：=结果 + widechar（strtoint（'$' + inttohex（ORD（INVALUE [2 * i -1]）），2）
+ inttohex（ord（indevalue [2 * i]），2）））;
结尾;