Вы не авторизированы! Логин:  Пароль:  Запомнить:    Зарегистрироваться
Забыл пароль
 
 
 

Преобразование числа в двоичную запись

SVD programming - Программирование Delphi, HTML, PHP, CGI. Обзоры софта, ReactOS и многое другое...
 
Главная - Новости - Публикации - Файлы - Ссылки - Форум Обратная связь
 


Друзья сайта ::

Сайтом управляют ::

Друзья сайта ::
Delphi » Преобразование числа в двоичную запись
Автор: Admin / Дата: 19:37 16.02.2006
Комментарии: Комментарии (0)
Рейтинг статьи: 0
Для преобразования числа в двоичную запись удобно использовать функции shl и and.

Эта функция преобразует число в строку из единиц и нулей. Количество цифр определяется параметром Digits.

Код:
function IntToBin(Value: integer; Digits: integer): string;
var
i: integer;
begin
result := '';
for i := 0 to Digits - 1 do begin
if Value and (1 shl i) > 0
then result := '1' + result
else result := '0' + result;
end;
end;



Вот пример использования этой функции:

Код:
procedure TForm1.Edit1Change(Sender: TObject);
begin
Form1.Caption := IntToBin(StrToIntDef(Edit1.Text, 0), 128);
end;

Источник: http://articles.org.ru
Автор : Admin
Комментарии: Комментарии (0)

Внимание!

Друзья сайта
Голосование ::
Случайные статьи ::
Добавления в форуме ::
Новые комментарии ::
Пользователи on-line ::
0 пользователь, 44 гостей
 
Страница создана за 0.014 секунд

SQL общее время: 0.003 секунд
SQL запросов всего: 14
Администрация сайта не несет ответственности за содержание рекламных материалов, а так же за информацию размещаемой посетителями. При использовании материалов сайта ссылка на svdpro.info обязательна.

Powered by LDU 802

Рейтинг@Mail.ru
Copyright © 2005 - 2011 «SVD Programming»
Версия сайта для коммуникаторов
Обратная связь - Карта сайта