Работа с битами Опции

[sheka]

Хочется видите ли с битами работать. Но даже в тот же Longint они не влазят.
Вот такой маразм не прокатывает:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  p: pointer;
  pSize: integer;
  i: integer;

begin
  pSize := SizeOf(longint)*8+1;
  WriteLn(pSize);
  GetMem(p,pSize);
  FillChar(p^,pSize,0);
  Integer(p^) := 4294967296;
  for i := pSize-1 downto 0 do
    Write((Integer(p^) shr i)and $1);
  WriteLn;
  FreeMem(p,pSize);
  readln;
end.

Объявлять массив Байтов и делать перегрузку +- не интересно.

[IUnknown]

Дык получается, что первые 7 бит booleana - вечные 0 ?

Кто тебе сказал, что Boolean - это только 0 и 1? Не было такого уговора. False - да, это 0. А вот насчет True ограничений не было:

var
   b : boolean;
begin
   b := boolean(255);
   writeln(b);
   writeln(byte(b));
end.

Все, что не 0 - True... Так что не вечные нули. Смотря ка используешь Boolean...

Стремный метод однако.

Хм... Тебя не поймешь. То тебе не так, это - не этак. Скажи, что нужно... Лучше bitpacked все равно вряд ли сделаешь...