¿Cuál es la mejor manera de almacenar un conjunto de Delphi en un conjunto de datos?

set dataset

Question

El título lo dice todo. Estoy usando un TClientDataset para almacenar una matriz de objetos, y uno de los objetos tiene un miembro definido como un conjunto de un tipo enumerado. Tal como lo entiendo, los conjuntos de Delphi son bitfields cuyo tamaño puede variar de 1 a 32 bytes, según la cantidad de datos que contengan, y Delphi no define un TSetField. ¿Qué tipo de campo debo usar para cargar este valor?

Answer 1

Puede usar un TBytesField o un TBlobField

ClientDataSet1MySet: TBytesField, Size = 32

var
MySet: set of Byte;
Bytes: array of Byte;
begin
MySet := [1, 2, 4, 8, 16];
// Write
Assert(ClientDataSet1MySet.DataSize >= SizeOf(MySet), ''Data field is too small'');
SetLength(Bytes, ClientDataSet1MySet.DataSize);
Move(MySet, Bytes[0], SizeOf(MySet));
ClientDataSet1.Edit;
ClientDataSet1MySet.SetData(@Bytes[0]);
ClientDataSet1.Post;
// Read
SetLength(Bytes, ClientDataSet1MySet.DataSize);
if ClientDataSet1MySet.GetData(@Bytes[0]) then
Move(Bytes[0], MySet, SizeOf(MySet))
else
MySet := []; // NULL
end;

Answer 2

Puedes convertirlos a Byte, así:

var
States : TUpdateStatusSet; // Can be any set, I took this one from DB.pas unit
SetAsAInteger: Integer;
dbs: Pointer; // Here''s the trick
begin
States := [usModified, usInserted]; // Putting some content in that set
dbs := @States;
SetAsAInteger := PByte(dbs)^;
//Once you got it, SetAsAInteger is just another ordinary integer variable.
//Use it the way you like.
end;

Para recuperarse desde cualquier lugar:

var
MSG: string;
Inserted, Modified: string;
States: TUpdateStatusSet;
MySet: Byte;
begin
while not ClientDataSet.Eof do
begin
//That''s the part that interest us
//Convert that integer you stored in the database or whatever
//place to a Byte and, in the sequence, to your set type.
iSet := Byte(ClientDatasetMyIntegerField);// Sets are one byte, so they
// fit on a byte variable
States := TUpdateStatusSet(iSet);
//Conversion finished, below is just interface stuff
if usInserted in States then
Inserted := ''Yes'';
if usModified in States then
Modified := ''Yes'';
MSG := Format(''Register Num: %d. Inserted: %s. Modified:%s'',
[ClientDataSet.RecNo, Inserted, Alterted]);
ShowMessage( MSG );
ClientDataset.Next;
end;
end;

Answer 3

Basado en el ejemplo de Andreas, pero en mi humilde opinión hizo mi humilde opinión.

Probado en XE2

Puede usar un TBytesField o un TBlobField

ClientDataSet1MySet: TBytesField, Size = 32

1) Escribir

var
MySet: set of Byte;
Bytes: TBytes;
begin
MySet := [0];
// Write
Assert(ClientDataSet1Test.DataSize >= SizeOf(MySet), ''Data field is too small'');
SetLength(Bytes, ClientDataSet1Test.DataSize);
Move(MySet, Bytes[0], SizeOf(MySet));
ClientDataSet1.Edit;
ClientDataSet1Test.AsBytes := Bytes;
ClientDataSet1.Post;
end;

2) Lectura

var
MyResultSet: set of Byte;
begin
Move(ClientDataSet1Test.AsBytes[0], MyResultSet, ClientDataSet1Test.DataSize);
end;