高分急问怎么获得汉字的ASC码 Ord('问') 不行。

Question

s:='问'
i1:=ord(s[1]);
i2:=ord(s[2]);
双子节

Answer 1

var
  TempStr:String;
  i,StrLen:integer;
begin
  TempStr:='问';
  StrLen := Length(TempStr);
  For i:=1 to StrLen do
  begin
    ShowMessage(IntToHex(Ord(TempStr[i]),4));
  end;
end; 

Answer 2

   得到字符的ASCII值，可以用如下语句：
     var: a:integer;
          string1:string;
     begin
        string1:='ABC';
        a:=byte(string[1]); {此时就得到'A'的ASCII值}
     end;
另:
ord(string[1]);
chr(20);