ART_43 Home Site

function BinToLongWord(s:string):LongWord;
var i:integer;
    v:LongWord;
    s1:string;
begin
    v:=0;
    result:=0;
    s1:=trim(s);
    for i:=length(s1) downto 1 do
        begin
            if v=0 then v:=1 else v:=v*2;
            if s1[i]='1' then
                result:=result or v
            else
                if s1[i]<>'0' then
                    break;
        end;
end;