最近在做一個短信相關的項目。從聯通網關提供過來的短信都是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）））;
結尾;