编程论坛 → Delphi论坛

在delphi中怎么实现将ascii码转换成十六进制呀？

ningyanhong 发布于 2011-07-31 09:12， 3521 次点击

ascii码转换成十六进制。。。。。。很急在线等待高手

4 回复

ningyanhong2011-07-31 09:12

实在不好意思，没有分了

ningyanhong2011-07-31 09:14

求指教

yuutian2011-07-31 21:41

程序代码：

P : PChar;
  Sour : AnsiString;
  S : String;
begin
  Sour := ......
  P := Pointer(Sour);
  S := '';
  for i:=0 to Length(S)-1 do begin
  S := S + ' ' + IntToHex(PByte(P)^ , 2);
  P := P + 1;
  end;
end;

yuutian2011-07-31 21:42

可以参考一下：

程序代码：

function tform1.StrToHex(AStr: string): string;
var
  I ,Len: Integer;
  s:char;
begin
  len:=length(AStr);
  Result:='';
  for i:=1 to len  do
  begin
    s:=AStr[i];
    Result:=Result +' '+IntToHex(Ord(s),2);         //将字符串转化为16进制字符串，并以空格间隔
  end;
  Delete(Result,1,1);                    //删去字符串中第一个空格
end;