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

← →
RyDmi (2004-04-23 22:54) [0]

Мне нужно записать десятичное число в двоичном виде и поместить в строку, т.е. мне нужно в TLabel поместить двоичный вид числа.

← →
DrPass © (2004-04-23 23:31) [1]

См. первый (или второй) урок информатики школьного курса

← →
DVM © (2004-04-24 00:31) [2]

function IntToBin(Value: LongInt;Size: Integer): String;
var

i: Integer;
begin

Result:="";
for i:=Size downto 0 do begin
if Value and (1 shl i)<>0 then begin
Result:=Result+"1";
end else begin
Result:=Result+"0";
end;
end;
end;

← →
Anatoly Podgoretsky © (2004-04-24 11:17) [3]

Какие уроки информатики, курсовую надо сдавать

Проверил DVM © (24.04.04 00:31) [2]
Вполне отвечает посту. Странноно почему молчит RyDmi(23.04.04 22:54) мог бы выразить благодарность и закрыть пост.

← →
RyDmi (2004-04-24 16:33) [5]

DVM, большое спасибо за ответ.

Преобразование числа Найти похожие ветки