最近在做一个短信相关的项目。从联通网关 kirim 过来的短信都是 ucs2 编码的。
在网上找了些资料 ， 找到一些使用 Java 语言本身带的 API 转换的代码 ， 但没有合适的 delphi 源码 ， 所以经研究后自己写了一个 ， 很简单的 ：
fungsi ucs2togbk (const invale: string): string;
var
I: Integer;
mulai
Hasil: = '';
untuk i: = 1 hingga panjang (invaluasi) Div 2 - 1 lakukan
Hasil: = Hasil + widechar (strtoint ('$' + inttHeHex (ord (invaluasi [2 * i - 1]), 2)
+ InttHoHex (ord (invalue [2 * i]), 2)));
akhir;