請問再delphi中有沒有將漢字轉換成16進制的函數呢?我只找到inttohex()!!!!!!!!!!!!!!!!!!!

Question

汉字还能转成十六进制吗？是汉字的内码吧？把汉字放到字符串，然后逐个读字符串数组的值不就行啦。

Answer 1

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 c : char ;
 s : String ;
 f : String ;
begin
 s := '框';
 c := s[1] ;
 f := inttohex(ord(c),4);
 c := s[2] ;
 f := f + ' '+inttohex(ord(c),4); showmessage(f);
end;