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下的字符串分隔函数的一种用法

Delphi用邻域平均法对图像进行平滑处理

Delphi 如何将颜色值转换为html格式？

Delphi winapi: gettickcount - 获取系统已启动的时间

Delphi中判断tcp端口是否被占用

Delphi inc () 计数用法

Delphi xe7开发的直接以管理员模式启动cmd命令行界面

orangeui作者开源作品

Delphi sqlite 自动编号的实现

Delphi驱动方式winio模拟按键

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

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