易语言有个函数是：Ansi转Unicode ( ) 在delphi7怎么写？delphi7有没有提供相应的函数？或者直接
易语言有个函数是：Ansi转Unicode()在delphi7怎么写？delphi7有没有提供相应的函数？或者直接直接调用相应的API实现？如题...
易语言有个函数是：Ansi转Unicode ( ) 在delphi7怎么写？delphi7有没有提供相应的函数？或者直接直接调用相应的API实现？
如题 展开
如题 展开
2个回答
展开全部
function AnsiToUnicode(Ansi: string):string;
var
s:string;
i:integer;
j,k:string[2];
a:array [1..1000] of char;
begin
s:='';
StringToWideChar(Ansi,@(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+k+j;
i:=i+2;
end;
Result:=s;
end;
var
s:string;
i:integer;
j,k:string[2];
a:array [1..1000] of char;
begin
s:='';
StringToWideChar(Ansi,@(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+k+j;
i:=i+2;
end;
Result:=s;
end;
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
