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
DelphiWorld 6.0