HexToBin到底怎么用啊？

Question

返回的是个Char型，而不是二进制表示的字符串？那如何取得这二进制字符串呢？

Answer 1

十六进制转换二进制 
function HexToBin(Hexadecimal: string): string;
const
  BCD: array [0..15] of string =    ('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111',    '1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111');
var
  i: integer;
begin
  for i := Length(Hexadecimal) downto 1 do
    Result := BCD[StrToInt('$' + Hexadecimal[i])] + Result;
end;