Delphi Unicode转换Ansi

本文整理自网络，侵删。

 
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 posansi

Delphi xe将图标和图像添加为资源

Delphi 获取webbrowser中的图片

Delphi 实现延时自动关闭对话框

Delphi tstringlist 文本文件拼接

Delphi 提升进程权限

Delphi多级指针

Delphi 获取路径分隔符

Delphi 删除memo某一行

Delphi 创建win桌面快捷方式，实现360桌面图标数字提示 或 类似安卓的右上角的数字提示

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi Unicode转换Ansi