![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Преобразование числа [D6, WinXP]
RyDmi © (2004-04-23 22:54:00)Мне нужно записать десятичное число в двоичном виде и поместить в строку, т.е. мне нужно в TLabel поместить двоичный вид числа.
RyDmi (2004-04-24 16:33:00) [1]DVM, большое спасибо за ответ.
Vit@ly (2004-04-24 11:30:00) [2]Проверил DVM © (24.04.04 00:31) [2]
Вполне отвечает посту. Странноно почему молчит RyDmi(23.04.04 22:54) мог бы выразить благодарность и закрыть пост.
Anatoly Podgoretsky (2004-04-24 11:17:00) [3]Какие уроки информатики, курсовую надо сдавать
DVM (2004-04-24 00:31:00) [4]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;
DrPass (2004-04-23 23:31:00) [5]См. первый (или второй) урок информатики школьного курса