最近在做一个短信相关的项目。从联通网关 Доставить 过来的短信都是 UCS2 编码的。
在网上找了些资料 ， 找到一些使用 java 语言本身带的 api 转换的代码 ， 但没有合适的 delphi 源码 ， 所以经研究后自己写了一个 很简单的 ：
Функция ucs2togbk (const Invalue: String): String;
вар
Я: целое число;
начинать
Результат: = '';
для i: = 1 к длине (инваал) div 2 - 1 do
Результат: = Result + WideChar (strtoint ('$' + inttoHex (ord (инвалид [2 * I - 1]), 2)
+ InttoHex (ord (инвалид [2 * i]), 2)));
конец;