如何输出字符串的十六进制码

Question

s = 'abcdefg';
在控制台输出相应的十六进制码？

Answer 1

估计要用用汇编转吧
http://dev.csdn.net/article/02/02776.shtm

Answer 2

比如求'a'的16进制
var
  s:string;
  c:char;
  d:string;
begin
   s:='abc';
   c:=s[1];
   d:=inttohex(ord(c),2);

Answer 3

function   StringToHex(Source:string):string;   
  var   
          i:integer;   
  begin   
          for   i:=1   to   Length(Source)   do   
          begin   
                  Result:=Result+IntToHex(Ord(Source[i]),2);   
          end;   
  end;   

Answer 4

楼上的几个高手讲得对。
把字符串里的字符一个个读出来后，就是一个个的char。Ascii码。
再转换一下：

Answer 5

function strtohex(s:string):string;
begin
result:='';
for i:=1 to length(s) do
result:=result+inttohex(ord(s[i]));
end;

Answer 6

这个太好转换了吧=.=
首先一个LENGTH()设置一下
然后就可以用[]来访问
然后直接BYTE()来转换就可以换成16进制了