二进制类型是没有的,用字符串表示啦 我有两个函数,希望对你有帮助 function bintoint(s:string):integer; var j,i:integer; begin result:=0; if s='' then begin result:=-1; exit; end; for i:=length(s) downto 1 do begin j:=1; j:=j shl (length(s)-i); if s[i]='1' then result:=result or j else if s[i]='0' then result:= result and (not j) else begin result:=-1; exit; end; end; end;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;
我有两个函数,希望对你有帮助
function bintoint(s:string):integer;
var
j,i:integer;
begin
result:=0;
if s='' then
begin
result:=-1;
exit;
end;
for i:=length(s) downto 1 do
begin
j:=1;
j:=j shl (length(s)-i);
if s[i]='1' then
result:=result or j
else if s[i]='0' then
result:= result and (not j)
else
begin
result:=-1;
exit;
end;
end;
end;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;
好象现成的只有一个INTTOHEX
到十六进制的转换