最近在做一个短信相关的项目。从联通网关 تسليم 过来的短信都是 UCS2 编码的。
在网上找了些资料 ， 找到一些使用 java 语言本身带的 API 转换的代码 ， 但没有合适的 delphi 源码 ， 所以经研究后自己写了一个 很简单的 ：
دالة ucs2togbk (const غير صالحة: سلسلة): سلسلة ؛
var
أنا: عدد صحيح.
يبدأ
النتيجة: = '' ؛
لأني: = 1 إلى الطول (غير صالح) div 2 - 1 تفعل
النتيجة: = النتيجة + widechar (strtoint ('$' + inttohex (ORD (alvalue [2 * i - 1]) ، 2)
+ inttoHex (ORD (غير صالح [2 * i]) ، 2))) ؛
نهاية؛