16进制字符串转为二进制字符串

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;