Преобразование числа в двоичную запись |
Previous Top Next |
Для преобразования числа в двоичную запись удобно использовать функции shl и and.
Эта функция преобразует число в строку из единиц и нулей. Количество цифр определяется параметром Digits.
Code: |
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; |
©Drkb::04055
Взято с сайта http://blackman.wp-club.net/