字符串转换成16进制字符串

delphi直接有函数的:
procedure TForm1.Button1Click(Sender: TObject);
const
s:pwidechar='中文delphi';
var
buff:array[0..100] of char;
begin
fillchar(buff,100,0);
BinToHex(pchar(s),buff,length(s)*2); //这个可以直接转
end;

 

 

function   strtohex(str:string):string;  
  var   i:integer;  
  begin  
      for   i:=1   to   length(str)   do  
      begin  
          result:=result+inttohex(ord(str[i]),2);  
      end;  
  end;