二進制字符與十進制互轉 (2001年5月25日) 

網友更新  分類:算法   作者:閻磊  推薦:yanlei   閱讀次數:173  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
二進制字符轉十進制
Function binToDec(Value :string) : integer;
VAR
str : String;
Int : Integer;
i : integer;
BEGIN
Str := UpperCase(Value);
Int := 0;
FOR i := 1 TO Length(str) DO
Int := Int * 2+ ORD(str[i]) - 48;
Result := IntToStr(Int);
end;
十進制轉二進制
function mod_num(n1,n2:integer):integer;//取余數
begin
result:=n1-n1 div n2*n2
end;
function reverse(s:String):String;//取反串
Var
i,num:Integer;
st:String;
begin
num:=Length(s);
st:='';
For i:=num DownTo 1 do
Begin
st:=st+s[i];
End;
Result:=st;

end;
Function DecTobin(Value :Integer) : string;//十進制轉化二進制
Var
ST:String;
N:Integer;
Begin
ST:='';
n:=value;
While n>=2 Do
Begin
st:=st+IntToStr(mod_num(n,2));
n:=n div 2;
End;
st:=st+IntToStr(n);
Result:=reverse(st);

End;
//E_Mail:yanleigis@21.com,參考Srw