Unicode汉字编码互转

Function Chinese2UniCode(AiChinese:String):Integer;
Var
ch,cl:String[2];
a:array[1..2] of char;
Begin
StringToWideChar(Copy(AiChinese, 1, 2), @(a[1]), 2);
ch := IntToHex(Integer(a[2]), 2);
cl := IntToHex(Integer(a[1]), 2);
Result := StrToInt('$' + ch + cl);
end;

//就是以上这个函数了，可以大家百度的时候已经看到它，但是有可以新手朋友像我一样也不知道怎么用吧。看下面。。。

Chinese2UniCode 这个函数将汉字转化为10进制的数字，还需要把这堆数字转换为16进制。再加上字符'\u'。这样就和网页抓包的结果一样了。