delphi Ansi字符串转Unicode编码

本文整理自网络，侵删。

 
function TForm1.AnsiToUnicode(Str: ansistring): string;
var
  s: ansistring;
  i:integer;
  j,k:string[2];
  a:array [1..1000] of  ansichar;
begin
  s:='';
  StringToWideChar(Str,@(a[1]),500);
  i:=1;
  while ((a[i]<>#0) or (a[i+1]<>#0)) do
  begin
    j:=IntToHex(Integer(a[i]),2);
    k:=IntToHex(Integer(a[i+1]),2);
    s:=s+'\u'+k+j;
    i:=i+2;
  end;
  Result:=s;
end;

――――――――――――――――

原文链接：https://blog.csdn.net/cc001100/article/details/81015182
 

相关阅读 >>

Delphi 开发64位应用程序使用windows api的注意事项

Delphi 禁止改变窗口大小和移动窗口

Delphi xe7实现手机上获取wifi信息的程序

Delphi 调用dos nbtstat 并获得结果

crc32.pas

Delphi命令行窗口实现9*9乘法表

Delphi通过调用com对象实现更改桌面壁纸

Delphi getdesktopdir 获取桌面路径

Delphi 字符串对比比较

Delphi app检测智能手机震动

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

转载请注明出处：木庄网络博客 » delphi Ansi字符串转Unicode编码