本文整理自网络,侵删。
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 xe5的新功能“ tlistview内置搜索过滤”
更多相关阅读请进入《Delphi》频道 >>