function HexToBin(Const AHex:String):String;
Const
AStrArr:Array [$0..$F] of String=('0000','0001','0010','0011',
'0100','0101','0110','0111','1000','1001','1010','1011',
'1100','1101','1110','1111');
var
i,L:integer;
AIndex:Integer;
begin
AIndex:=1;
L:=Length(AHex);
SetLength(Result,L*4);
for i:=1 to L do
begin
StrPCopy(@Result[AIndex],AStrArr[StrToInt('$' + AHex[i])]);
inc(AIndex,4);
end;
end;
16进制字符串转为二进制字符串
最新推荐文章于 2024-04-28 13:13:29 发布