请教：如何通过编码显示中文！比如ShowMessage(...)能显示出我来。

Question

其中"..."不是汉字字符串。
等待高手的到来！

Answer 1

你的意思是不是把ASCII码转换成中文？

Answer 2

//汉字与asc码互换
var
  Str: String;
  Pass:String;
  i:integer;
begin
  Str := 'H汉T字';
  for I:=1 to Length(Str) do
    Pass:=Pass+String(IntToHex(Ord(Str[I]),2));
  ShowMessage(Pass);  Str:='';
  for I:=1 to (Length(Pass) div 2) do
  begin
    Str:=Str+Chr(StrToInt('$'+Copy(Pass,(I-1)*2+1,2)));
    //ShowMessage(Str);
  end;
  ShowMessage(Str);
end;

Answer 3

就是：hthunter(核桃-我的心在下雨,雨中我和她携手漫步)的意思，还有什么方法吗？

Answer 4

function MessageBox(const Text, Caption: PChar; Flags: Longint = MB_OK): Integer;因为使用的是PChar类型，无须再考虑中文还是英文还是其它，如：
Str := 'H汉T字';MessageBox(PChar(Str), '显示', MB_OK);

Answer 5

少了一个Handle，应该是：
MessageBox(Handle, PChar(Str), '显示', MB_OK);