Битовые маски

[PTyTb32]

Привет, есть число -32768 в формате Double как правильно получить из него 0000000000000001? речь о модуле дискретного ввода и состояния всех его параметров находятся в одном регистре (в двух). вот как пробовал это делать:

type
  TRec = packed record
    case Integer of
      0 : (LB, HB: Byte);
      1 : (W: Word);
  end;     


function TForm1.ShowBits(a: byte): string;
var
  i: integer;
begin
  for i := 15 downto 0 do
    if a and (1 shl i) <> 0 then
      tlabel(FindComponent('label' + IntToStr(19 + i))).Caption := '1'
    else
      tlabel(FindComponent('label' + IntToStr(19 + i))).Caption := '0';
end;   

procedure TForm1.Button1Click(Sender: TObject);
var
  f: double;
  b: byte;
begin

  f:=0 - mv110.GetStateDigitalInput(PLCTagNumber1, 2, 16); //функция вернет значение из регистра на устройстве
  Rec.LB:=f.Bytes[6];
  Rec.HB:=f.Bytes[7];
  ShowBits(Rec.W);
{
// так же пробовал эти варианты.. результат не верен
 ShowBits(f.Bytes[6]);
 ShowBits(f.Bytes[7]);

}

  Label1.Caption := floattostr(f);
end;

[Serge_Bliznykov]

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

-32678 в формате Double

формат Double - это вещественное представление числа (в виде мантиссы и порядка). Вы ничего не путаете?

[PTyTb32]

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

формат Double - это вещественное представление числа (в виде мантиссы и порядка). Вы ничего не путаете?

компонент возвращает полученное значение в этом формате, если получить значение регистра на прямую любой другой программой я получаю то же самое число (исправлена опечатка в самом числе)

решение оказалось простым... полученное число не нужно делать отрицательным как в сторонних программах, просто переводим его в двоичный вид и дописываем в начало недостающее количество '0'.

[Аватар]

program DoubleToBin;

var d: Double;
    p: ^Byte;
    k: Integer;
    res: String;

function ByteToStr(Value: Byte): String;
var s: String;
    i: Integer;
begin
  s:='';
  for i:=0 to 7 do if Value and (1 shl i) = 0 then s:='0'+s else s:='1'+s;
  ByteToStr:=s;                              
end;

begin
  d:=-32768;
  p:=Addr(d);
  res:='';
  for k:=1 to 8 do begin
    res:=ByteToStr(p^)+res;
    Inc(p);
  end;  
  writeln(Res);
  //1100000011100000000000000000000000000000000000000000000000000000
end.

[Serge_Bliznykov]

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

просто переводим его в двоичный вид и дописываем в начало недостающее количество '0'.

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

Привет, есть число -32768 в формате Double как правильно получить из него 0000000000000001

ха. Так у Вас число записано "задом наперёд":
32768 в двоичном виде это 1000000000000000b

[northener]

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

решение оказалось простым...

Но весьма не очевидно что оно ещё и правильное.