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

[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]

512 бит - это 64 байта, а тип Int64 - это 64 бита...

А есть какой-то битовый тип кроме boolean?

Нет. Ко всему прочему, Boolean - ни разу не битовый. То, что он может хранить только 2 значения - еще ни о чем не говорит... Ты задачу-то озвучь, может что-то кроме таких извращений можно будет придумать. Чего ты привязался к битам?

... (Показать/Скрыть)

Как же мне нравятся языки, где можно делать то, что хочешь, а не то, что подразумевали создатели... Пример:

procedure Main;
   type Bit is (Reset, Set);
   for Bit use (Reset => 0, Set => 1);
   for Bit'Size use 1;  --  Да, ты правильно понял. Один бит на элемент
   
   type Bit_Array is array (1 .. Integer'Size) of Bit;  --  Тут битовый массив любого размера
   pragma Pack (Bit_Array);
   
   Value : Integer;
   ba : Bit_Array := (others => Reset);
   for ba'Address use Value'Address;  --  Ага, Absolute
begin
   Value := 32124323;
   Put_Line (Integer'Image (Integer'Size));
   Put_Line (Integer'Image (ba'Size));
   
   for i in reverse ba'Range loop  --  А теперь работаем с массивом бит как обычно...
         Put (Integer'Image (Bit'Pos (ba (i))));  --  Изменяли Value - посмотрим его значение
   end loop;
   New_Line;
   Put_Line (Integer'Image (Value));
end Main;

, что получается:

 32
 32
 0 0 0 0 0 0 0 1 1 1 1 0 1 0 1 0 0 0 1 0 1 1 0 1 1 0 1 0 0 0 1 1
 32124323

Вот почему этого не умеет Паскаль? Почему нельзя заставить компилятор все-таки выделять по 1 биту на элемент массива?

Сообщение отредактировано: IUnknown - 7.07.2011 17:55