二进制字符转十进制

//二进制字符转十进制

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 * 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;