如何获取机内码的问题?

Question

请教各位:    有如下字符串:
       str:='我的问题!';
    我如何得到上串的机内码呢!    还有上串的'!'是半角的,如何将其转换成全角的'！'，    谢谢!
  
    在线等马上结帖!!!!

Answer 1

function GetCode(s:string):string;
var i:integer;
begin
  result:='';
  for i:=1 to length(s) do
  result:=result+inttohex(ord(s[i]),1);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(getcode('我的问题'))
end;

Answer 2

function GetCode(s:string):string;
var i:integer;
begin
  result:='';
  for i:=1 to length(s) do
  result:=result+inttohex(ord(s[i]),1);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(getcode('我的问题'))
end;

Answer 3

function GetUnicodeCodes(s:string):string;
var
  ws:WideString;
  i:Integer;
begin
  ws:=s;
  for i:=1 to Length(ws) do
    Result:=Result+IntToHex(Ord(ws[i]),4)+','; // 高字节在前，低字节在后
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(GetUnicodeCodes('我的问题'));
end;