Question

Delphi Ansi和Unicode编码的相互转换

请把代码贴上，我刚学习Delphi的新手，求解！谢谢！

Answer 1

//unicode转字ASC
function U2GB(Str: string): string;
var
s: pchar;
i: integer;
tmp: string;
begin
tmp := '';
result := '';
s := PChar(str);
i := 0;
while i < length(s) do
begin
tmp := tmp + chr(HexToInt(s[i + 2] + s[i + 3])) + chr(HexToInt(s[i] + s[i + 1]));//unicode转换时,高低位互换
inc(i, 4);
end;
result := widechartostring(pWideChar(tmp));
end;
//ASC转换成unicode
function EncodeUniCode(Str:WideString):string; //字符串－>PDU
var
i,len:Integer;
cur:Integer;
begin
Result:='';
len:=Length(Str);
i:=1;
while i<=len do
begin
cur:=ord(Str[i]);
Result:=Result+IntToHex(Cur,4);
inc(i);
end;
end;

Answer 2

调用Windows的API函数：MultiByteToWideChar