HexToStr函数和StrToHex函数

时间:2010-02-01 13:19:03  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读: Integer;begin  if AChar in ['0'..'9'] then  Result := Ord(AChar) - Ord('0')  else  Result := 10 + Ord(AChar) - Ord('A');end;function StrToHex(AStr: string): string;varI ,Len: Integer;s:char;begin  len:=length(AStr);  Resu...
  正文:Delphi中实现HexToStr函数和StrToHex函数:


function TransChar(AChar: Char): Integer;
begin
  if AChar in ['0'..'9'] then
  Result := Ord(AChar) - Ord('0')
  else
  Result := 10 + Ord(AChar) - Ord('A');
end;
function 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;
function HexToStr(AStr: string): string;
var
I,len : Integer;
CharValue: word;
Tmp:string;
s:char;
begin
  Tmp:='';
  len:=length(Astr);
  for i:=1 to len  do
  begin
    s:=Astr[i];
    if s <> ' ' then Tmp:=Tmp+ string(s);
  end;
  Result := '';
  For I := 1 to Trunc(Length(Tmp)/2) do
  begin
    Result := Result + ' ';
    CharValue := TransChar(Tmp[2*I-1])*16 + TransChar(Tmp[2*I]);
    if (charvalue < 32) or (charvalue > 126)  then Result[I] := '.'   //非可见字符填充
    else Result[I] := Char(CharValue);
  end;
end;

"HexToStr函数和StrToHex函数"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12722.html


关键字:

关于《HexToStr函数和StrToHex函数》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td