Преобразование числа типа Byte

[саша40]

Всем привет. У меня возникла одна маленькая проблемка. Короче есть число типа Byte. Как преобразовать это число в строковую последовательность 1 и 0? Подскажите хотя бы идею.

[Stilet]

маленькая проблемка

... под названием "Я у мамы лентяюга, и гугла мне не помошник"
Запрос: "В двоичную"
Результат: http://www.programmersforum.ru/showthread.php?t=12841

[ZX Spectrum-128]

http://programmersforum.ru/showthread.php?t=253052

[саша40]

Спасибо,решил.

[саша40]

Выкладываю функцию, если кому пригодится:

function TForm1.ByteToCode(Code: Byte): String;
var
u,i: integer;
B: Byte;
K: array [1..255] of Integer;
i: integer;
begin
B:=Code;
while B>=1 do
begin
k[i]:=B mod 2;
B:=B div 2;
inc(u);
end;
for i:=u downto 1 do
Result:=Result + IntToStr(k[i]);
While Length(Result)<8 Do
Insert('0',Result,1);

[FIDE]

Уже 1000 раз на этом форуме и на киберфоруме обсуждался перевод из одной СС в другую.