最近在做一个短信相关的项目。从联通网关ucs2の配信编码的。
在网上找了些资料、找到一些使用java语言本身带的api转换的代码、但没有合适的delphi源码、所以经研究后自己写了一个、很简单的、很简单的：
関数UCS2TOGBK（const Invalue：string）：string;
var
I：整数;
始める
結果：= '';
i：= 1から長さ（無効）div 2-1
結果：= result + widechar（strtoint（ '$' + inttohex（ord（nivalue [2 * i -1]）、2）
+ inttohex（ord（ivalue [2 * i]）、2）））;
終わり;