BIN --> Byte

Previous  Top  Next

    
 

Code:

function BinStrToByte(a_sBinStr: string): byte;

var

i: integer;

begin

Result := 0;

for i := 1 to length(a_sBinStr) do

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

end;

 

©Drkb::00944

http://delphiworld.narod.ru/

DelphiWorld 6.0