Code:

function BinToInt(const Value: string): Integer;

{©Drkb v.3(2007): www.drkb.ru}

var

i, strLen: Integer;

begin

Result := 0;

strLen := Length(Value);

for i := 1to strLen do

if Value[i] = '1'then

Result := Result or (1shl (strLen - i))

else

Result := Result andnot (1shl (strLen - i));

end;

 

 

Автор: Yanis

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить