10->2
function inttobin(value:logint;size:integer):string;
var
i:integer;
a:array of byte;
begin
result:='';
for i:=size downto 0 do
begin
result:=result+'1';
end else
begin
result:=result+'0';
end;
//////////////
{ for i:=0 to sizeof(result) do
begin
3个字节移动,3个字节移动吧,我也不会了,请参考
end;
}
end;
end;