最近在做一个短信相关的项目。从联通网关 liefern 过来的短信都是 ucs2 编码的。
在网上找了些资料 ， 找到一些使用 Java 语言本身带的 api 转换的代码 但没有合适的 但没有合适的 Delphi 源码 ， 所以经研究后自己写了一个 很简单的 ： ：
Funktion ucs2togbk (const unschätzbar: String): String;
var
I: Ganzzahl;
beginnen
Ergebnis: = '';
für i: = 1 bis Länge (unschätzbar) div 2 - 1 tun
Ergebnis: = Ergebnis + Widechar (Strtoint ('$' + inttohex (ord (unschätzbar [2 * i - 1]), 2), 2)
+ Inttohex (ord (unschätzbar [2 * i]), 2)));
Ende;