返回的是个Char型,而不是二进制表示的字符串?那如何取得这二进制字符串呢?
十六进制转换二进制
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;