delphi - operator - manejo de bits en c ejemplos

¿Cómo usar bit/bit-operator para controlar el estado del objeto?

Question

Quiero crear paquetes de datos de objeto ligero para pasar entre aplicaciones de cliente y servidor.

Es una tarea tan simple, que puedo controlar con solo 1 byte, por lo que cada bit en un byte tendrá un significado diferente,

Usando solo el bit

0 = False 
1 = True

Itens necesito ahora:

1 - Loaded from database 
2 - Persisted
3 - Changed
4 - Marked to Delete
5 -
6 - 
7 - Null Value 
8 - Read Only


1) How do I use bit operators in Delphi to check each bit value? 
2) How do I set the bit Values?

Solución

Después de toda la ayuda, utilizaré el siguiente Set

  TStateType = (
    stLoaded    = 0,   // loaded from persistance
    stNative    = 2,   // value loaded and converted to native type
    stPersisted = 3,   // saved
    stChanged   = 4,   // object or member changed
    stToDelete  = 5,   // marked to delete
    stReadOnly  = 6,   // read only object, will not allow changes
    stNull      = 7    // value is null
  );
  TState = Set of TStateType;

Y para transmisión -> persistencia, este será el registro que se utilizará:

  TDataPackage = record
    Data: TBytes;
    TypeInfo: TMetaInfo;
    State: Byte;
    Instance: TBuffer;
  end;

Gracias chicos, por todas las respuestas y comentarios.

Answer 1

Realmente usaría un set para esto. Sin embargo, veo que realmente quieres un byte. Use conjuntos en todas partes, luego encasille en un byte al final.

Esta solución requerirá mucho menos tipeo, tiene soporte para operadores delphi estándar y realmente no conlleva ninguna penalización de rendimiento como ha señalado Barry Kelly.

procedure Test;
type
  TSetValues = (
    TSetValue1   = 0,
    TSetValue2   = 1,
    TSetValue4   = 2,
    TSetValue8   = 3,
    TSetValue16  = 4,
    TSetValue32  = 5,
    TSetValue64  = 6,
    TSetValue128 = 7
  );

  TMySet = set of TSetValues;
var
  myValue: byte;
  mySet: TMySet;
begin
  mySet := [TSetValue2, TSetValue16, TSetValue128];
  myValue := byte(mySet);
  ShowMessage(IntToStr(myValue)); // <-- shows 146
end;

Answer 2

Yo usaría un set para esto:

type
    TMyDatum = (mdLoaded, mdPersisted, mdChanged, mdMarkedToDelete, ...);
    TMyData = set of TMyDatum;

var
  Foo: TMyData;
begin 
  Foo := [mdLoaded, mdChanged];
  if (mdPersisted in Foo) then ...

Estos se implementan como enteros, por lo que puede pasarlos fácilmente. Y creo que el código es mucho más legible que los operadores bit a bit.

Answer 3

Esta página describe los operadores de Delphi, incluidos los operadores bit a bit.

Parece que necesita usar el operador y. Por ejemplo:

const
  LOADED_FROM_DATABASE = 1;
  PERSISTED = 2;
  CHANGED = 4;
  // etc...

//...

if (bitFlags and LOADED_FROM_DATABASE) <> 0 then
begin
  // handle LOADED FROM DATABASE
end;

if (bitFlags and PERSISTED) <> 0 then
begin
  // handle PERSISTED
end;

// etc...

Para establecer las banderas, puede usar OR:

bitFlags := LOADED_FROM_DATABASE or PERSISTED or CHANGED;