用什么函数可把十六进制转为字符串?(10分)

  • 主题发起人 主题发起人 kmwap
  • 开始时间 开始时间
K

kmwap

Unregistered / Unconfirmed
GUEST, unregistred user!
用什么函数可把十六进制转为字符串?
 
本身就是字符串。
IntToHex(123,4)
StrToInt('$'+'AA')
StrToInt('0X'+'BB')
 
他本身就是字符串呀,还转什么?
chr()
 
BinToHex
HextoBin
 
function HexToStr(AHex: String): String;
var
I: Integer;
J: Byte;
R: String;
begin
J:= 0;
R:= '';
for I:=1 to (Length(AHex) div 2) do
begin
if (AHex[2 * I - 1] >= 'A') and (AHex[2 * I - 1] <= 'F') then
J:= J * 16 + (Byte(Char(AHex[2 * I - 1]))-55)
else
J:= J * 16 + StrToInt(AHex[2 * I - 1]);
if (AHex[2 * I] >= 'A') and (AHex[2 * I] <= 'F') then
J:= J * 16 + (Byte(Char(AHex[2 * I]))-55)
else
J:= J * 16 + StrToInt(AHex[2 * I]);
R:= R + Char(J);
end;
Result:= TrimRight(R);
end;
 
Str := Strpas(pbs);
 

Similar threads

回复
0
查看
848
不得闲
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
900
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部