一个网页里面存在\u65b0\u6d6a\u4f53\u80b2\的字符串,如何转成字符啊?
解决方案 »
- dbgrideh的奇怪现免
- 散分...
- delphi6的串口通信控件mscomm(可能不是这个名字)在哪里
- 在MEMO中画当前窗口的图标,请教为什么图标闪烁很快,我觉得是在反复的PAINT,清高手赐教
- 急用,各位请提供个interbase 6.5 下载地址,如果手上有发信息给我,我开FTP给你上传!
- SPcomm控件遇到难题???
- 如何获得分给本机的所有IP地址?
- 一个关于数据库查询的菜鸟问题
- 关于Exception.Create的奇怪问题!?
- To:编程至尊宝 比如在C/S数据库中,把服务端的开启程序写到注册表中
- 提示错误:compiled with a different version of imageenproc. TImageEnProc该怎么解决
- 字符数组
var tmpLen,iCount:Integer;
tmpWS:WideString;
begin
tmpWS:='';
iCount:=1;
tmpLen:=Length(aSubUnicode);
while iCount<=tmpLen do
try
if (Copy(aSubUnicode, iCount, 1)='\')and (Copy(aSubUnicode, iCount, 2)='\u') then begin
tmpWS:=tmpWS+WideChar(StrToInt('$'+Copy(aSubUnicode,iCount+2,4)));
iCount:=iCount+6;
end
else begin
tmpWS:=tmpWS+Copy(aSubUnicode,iCount,1);
iCount:=iCount+1;
end;
except
end;
Result:=tmpWS;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(UnicodeToAnsi('\u65b0\u6d6a\u4f53\u80b2'));//显示“新浪体育”
end;