本文整理自网络,侵删。
function UnicodeToAnsi(aSubUnicode: string): string;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;
相关阅读 >>
Delphi 读取流 image1 stream 加载到image2 timage 对象
Delphi 5-7 桥接让Delphi xe2 datasnap中间层支持Delphi低版本开发客户端
Delphi xe android的所有权限按照分类总结说明
Delphi idtcpclient和idtcpserver主要属性
更多相关阅读请进入《Delphi》频道 >>