BIN --> Byte

Code:

function BinStrToByte(a_sBinStr: string): byte;

var

i: integer;

begin

Result := 0;

for i := 1to length(a_sBinStr) do

Result := (Result shl1) or byte(a_sBinStr[i] = '1');

end;

 

 

https://delphiworld.narod

DelphiWorld 6.0

 

 

Новые статьи

Ранние статьи

Случайные статьи

Популярные статьи

Подробности
Родительская категория: Работа со строками
Категория: Преобразования строк из и в другие типы

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

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

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

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

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