如果你的16进制数为 i:=$ff,直接用inttobin(i,size); 如果你的16进制数为 s:='ff',可以用inttobin(strtoint('$'+s),size);function inttobin(i:integer;size:integer):string; var j: integer; begin result:=''; for j:=size-1 downto 0 do begin if i and (1 shl j)<>0 then result:=result+'1' else result:=result+'0'; end; end;
如果你的16进制数为 s:='ff',可以用inttobin(strtoint('$'+s),size);function inttobin(i:integer;size:integer):string;
var
j: integer;
begin
result:='';
for j:=size-1 downto 0 do
begin
if i and (1 shl j)<>0 then
result:=result+'1'
else
result:=result+'0';
end;
end;
使用函数:
HexToBin()
比如'ff'转换:hextobin返回的是#$ff,单个字符
inttobin返回的是'11111111';
我想inttobin才适合楼主吧。