怎样用delphi 实现汉字转ASCII码?
需要用什么命令?还是要从内存中读取的,具体实现代码,能给我参考一下吗?
谢谢

解决方案 »

  1.   

    var s:string;
    begin
      s:='哈';
      ShowMessage(Format('%d %d',[ord(s[1]),ord(s[2])]));
    end;
      

  2.   

    var s:string;
    begin
      s:='哈';
      ShowMessage(Format('%x %x',[ord(s[1]),ord(s[2])]));
    end;
      

  3.   

    var s:string;
    begin
    s:='哈';
    showMessage( IntToHexord(s[1],2) + IntToHexord(s[2],2) );
    end;
      

  4.   

    十六进制可以这样:
    var s:string;
    begin
      s:='哈';
      ShowMessage(Format('%x %x',[ord(s[1]),ord(s[2])]));
    end;