二进制字符转十进制

//二进制字符转十进制

function binToDec(Value: string): string;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 * n2end;

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;