Byte → BIN
Материал из DRKB
Byte --> BIN[править | править код]
function ByteToBinStr(a_bByte: byte): string;
var
i: integer;
begin
SetLength(Result, 8);
for i := 8 downto 1 do
begin
Result[i] := chr($30 + (a_bByte and 1));
a_bByte := a_bByte shr 1;
end;
end;
Source: http://delphiworld.narod.ru/
ID: 00945