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 rest请求控件增加请求头时不编码

Delphi 校验文件大小

Delphi怎样读取excel表的所有字段名

Delphi intraweb 在iis下发布的web.config

如何判断硬盘是fat32还是ntfs

Delphi提取网页中的图片

Delphi xe2创建apple ios程序

Delphi 读写文本文件

Delphi中生成控件的两种方法

Delphi中break,exit,abort跳出循环的比较

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

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