怎么将“中国”的Unicode编码内码字串“4E2D56FD”转换到ANSI的“中国”内码字串？？

Question

请将你的Email地址发送到[email protected]，我会寄给你一个文件，转换只要查找拼接一下即可。......
D6CB7099
D6CC75D4
D6CD6EDE
D6CE6CBB
D6CF7A92
D6D04E2D
D6D176C5
D6D25FE0
D6D3949F........B9FA56FD
B9FB679C
B9FC88F9
B9FD8FC7
B9FE54C8
BA407BC5
BA417BC8
BA427BC9
BA437BCA前面为GBK编码，后面为ISO10646编码，和你的ANSI，Unicode编码是一样的
如果需要可以调换GBK与ISO10646的前后位置，并按ISO10646编码进行排序，以方便检索查找

Answer 1

试一试
procedure TForm1.Button2Click(Sender: TObject);
var
  s: String;
  w : WideChar;
  i: Integer;
  ascii: String;
begin
  s := '56FD';
  s := '$' + s;
  w := WideChar(StrToInt(s));
  s := w;
  ascii := '';
  for i := 1 to Length(s) do
  begin
    ascii := ascii + IntToHex(Ord(s[i]), 2);
  end;  Caption := ascii;
end;

Answer 2

这段代码，也许有帮助
procedure TForm1.Button1Click(Sender: TObject);
var
  s: WideString;
  s1: String;
  i: Integer;
begin
  s := '中国';
  s1 := s;
  Edit1.Text := '';
  for i := 1 to Length(s) do
  begin
    Edit1.Text := Edit1.Text + IntToHex(Ord(s[i]), 2);
  end;
  Edit2.Text := '';
  for i := 1 to Length(s1) do
  begin
    Edit2.Text := Edit2.Text + IntToHex(Ord(s1[i]), 2);
  end;
end;