[18A35]

Проблема такова: Требуется получить двоичный код десятичного числа!
Может быть имется встроенная функция для данной операции. своя функция получается довольно громоздкой!!!
функция HexToBin преобразует строковые данные готвого двоичного числа!!

[Ferra]

Если впаривает - я вечером на тему отвечу.. была у мя где-то такая ф-я но я ща не дома, а за надёжность того что я могу написпть- я не отвечаю....
чуто сто см. http://www.delphiworld.narod.ru
жди ответ ..

[Decoding]

Вот, нашел несколько вариантов функции, которая переводит десятичное число в двоичный код. Выбирай любой. Первый аргумент - десятичное число, второй - количество знаков, которое будет в двоичном коде после преобразования.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

<i><font color="silver">// Первый вариант функции IntToBin</font></i> <b>function</b> IntToBin( Value: integer; Digits: integer ): <b>string;</b> <b>var</b>   i: integer; <b>begin</b>    Result := '';    <b>for</b> i := 0 <b>to</b> Digits-1 <b>do</b>    <b>begin</b>       <b>if</b> Value <b>and</b> ( 1 <b>shl</b> i ) > 0          <b>then</b> Result := <font color="RoyalBlue">'1'</font> + Result          <b>else</b> Result := <font color="royalblue">'0'</font> + Result;    <b>end; end;</b>   <i><font color="Silver">// Второй вариант функции IntToBin</font></i> <b>function</b> IntToBin( Value: integer; Digits: integer ): <b>string;</b> <b>var</b>   i: integer; <b>begin</b>    Result := '';    <b>for</b> i := 0 <b>to</b> Digits-1 <b>do</b>       Result := IntToStr( ( Value <b>and</b> ( 1 <b>shl</b> i ) <b>shr</b> i ) ) + Result; <b>end;</b>   <i><font color="silver">// Третий вариант функции IntToBin</font></i> <b>function</b> IntToBin( Value: integer; Digits: integer ): <b>string; var</b>   i: integer; <b>begin</b>    Result := '';    <b>for</b> i := 0 <b>to</b> Digits-1 <b>do</b>       Result := IntToStr( ( Value <b>shr</b> i ) <b>and</b> 1 ) + Result; <b>end;</b>

Вызывать функцию можно так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

<b>procedure</b> TForm1.Button1Click(Sender: TObject); <b>const</b>   n = 140; <i><font color="Silver">// Десятичное число, которое нужно преобразовать</font></i> <b>var</b>   i, k: integer; <b>begin</b>    k := 1;    <b>for</b> i := 1 <b>to</b> n <b>do</b>    <b>begin</b>       k := k * 2;       <b>if</b> k > n <b>then</b> Break;    <b>end;</b>    Caption := IntToBin( n, i ); <b>end;</b>

[Ferra]

Комментарии излишни...