Текущий архив: 2004.06.06;
Скачать: CL | DM;
Вниз
Преобразование числа Найти похожие ветки
← →
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]Какие уроки информатики, курсовую надо сдавать
← →
Vit@ly © (2004-04-24 11:30) [4]Проверил DVM © (24.04.04 00:31) [2]
Вполне отвечает посту. Странноно почему молчит RyDmi(23.04.04 22:54) мог бы выразить благодарность и закрыть пост.
← →
RyDmi (2004-04-24 16:33) [5]DVM, большое спасибо за ответ.
Страницы: 1 вся ветка
Текущий архив: 2004.06.06;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.022 c
