|
 |
栏目导栏 |
|
| |
|
|
|
|
|
资料搜索 |
|
| |
|
|
|
|
|
热门文章 |
|
| |
|
|
|
|
|
最新文章 |
|
| |
|
|
|
| |
| |
|
|
|
|
在Delphi中实现HexToStr函数和StrToHex函数:7RqLinux联盟
7RqLinux联盟
7RqLinux联盟
function TransChar(AChar: Char): Integer;7RqLinux联盟
begin7RqLinux联盟
if AChar in ['0'..'9'] then7RqLinux联盟
Result := Ord(AChar) - Ord('0')7RqLinux联盟
else7RqLinux联盟
Result := 10 + Ord(AChar) - Ord('A');7RqLinux联盟
end;7RqLinux联盟
function StrToHex(AStr: string): string;7RqLinux联盟
var7RqLinux联盟
I ,Len: Integer;7RqLinux联盟
s:char;7RqLinux联盟
begin7RqLinux联盟
len:=length(AStr);7RqLinux联盟
Result:='';7RqLinux联盟
for i:=1 to len do7RqLinux联盟
begin7RqLinux联盟
s:=AStr[i];7RqLinux联盟
Result:=Result +' '+IntToHex(Ord(s),2); //将字符串转化为16进制字符串，7RqLinux联盟
//并以空格间隔。7RqLinux联盟
end;7RqLinux联盟
Delete(Result,1,1); //删去字符串中第一个空格7RqLinux联盟
end;7RqLinux联盟
function HexToStr(AStr: string): string;7RqLinux联盟
var7RqLinux联盟
I,len : Integer;7RqLinux联盟
CharValue: Word;7RqLinux联盟
Tmp:string;7RqLinux联盟
s:char;7RqLinux联盟
begin7RqLinux联盟
Tmp:='';7RqLinux联盟
len:=length(Astr);7RqLinux联盟
for i:=1 to len do7RqLinux联盟
begin7RqLinux联盟
s:=Astr[i];7RqLinux联盟
if s <> ' ' then Tmp:=Tmp+ string(s);7RqLinux联盟
end;7RqLinux联盟
Result := '';7RqLinux联盟
For I := 1 to Trunc(Length(Tmp)/2) do7RqLinux联盟
begin7RqLinux联盟
Result := Result + ' ';7RqLinux联盟
CharValue := TransChar(Tmp[2*I-1])*16 + TransChar(Tmp[2*I]);7RqLinux联盟
if (charvalue < 32) or (charvalue > 126) then Result[I] := '.' //非可见字符填充7RqLinux联盟
else Result[I] := Char(CharValue);7RqLinux联盟
end;7RqLinux联盟
end;7RqLinux联盟
|
|
|
|
|
|
|
