Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.018 c