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

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

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

[sheka]

Делфи на такую штуку иероглифы выводит. Не нравится ему писать TRUE если не 00000001

Это-то и нужно, просто это не интересно, до этого даже я додумался
Лучше и не надо, меня именно и интересуют извращения, т. е. посмотреть что можно вытащить из возможностей.

Ну как бы в Си такое же понятие True и False, и именно поэтому как зарезервированные слова они появились позже и то в библиотеках, если не ошибаюсь. Зачем тогда было выдумывать boolean? для простой смены True = not False ?

Сообщение отредактировано: sheka - 9.07.2011 4:21