Преобразование из десятичного в двоичное.

[Vova777]

Есть функция:

function IntToBin(x: integer) :string;
var
  S: string;
begin
  result:= '';
  while (x div 2) <> 0 do
    begin
      S:= IntToStr(x mod 2);
      x:= x div 2;
      insert(S, result, 1);
    end;
  S:= intToStr(x mod 2);
  insert(S, result, 1);
end;

Как ее переделать, чтобы она всегда выдавала 8-ми разрядное двоичное число?

[BDA]

function IntToBin(x: integer) :string;
var
  i: integer;
begin
  result := '00000000';
  for i := 1 to 8 do
    result[i] := chr(ord('0') + (x shr (8 - i)) and 1);
end;

Без учета переполнения (выведет младшие 8 разрядов числа).

Еще варианты формулы:

result[i] := chr(48 + (x shr (8 - i)) and 1);

const s = '01';
result[i] := s[(x shr (8 - i)) and 1 + 1];

[Stilet]

Демаю так:

function IntToBin(x: integer) :string;
var
  i:integerl
begin Result:='';
 for i:=0 to 7 do begin Result:=Result+ord('0')+(x and 1); x:=x shr 1; inc(i); end;
end;

[Vova777]

Сообщение от BDA

function IntToBin(x: integer) :string;
var
  i: integer;
begin
  result := '00000000';
  for i := 1 to 8 do
    result[i] := chr(ord('0') + (x shr (8 - i)) and 1);
end;

Без учета переполнения (выведет младшие 8 разрядов числа).

Вот этот код нормально работает! Спасибо.

Еще вопрос: как сделать так, чтобы число записалось "задом-наперед"? Т.е. если взять число "63", это будет число "00111111", то мне надо чтобы оно стало "11111100". Как?

[BDA]

Попробуйте заменить 8 - i на i - 1.