Суть вопроса в следующем, как на Delphi реализовать структуру, прототип на С++ которой выглядит следующим образом

typedef struct _TEMP
{
int Count;
BYTE Param1 : 1;
BYTE Param2 : 1;
BYTE Param3 : 1;
BYTE Unused : 5;
} TEMP;

Вообщем, можно ли на Delphi, размер параметра в типе указать в битах?

| Сообщение посчитали полезным:

type
TParams = (Param1, Param2, Param3);
TParamsSet = set of TParams;

TempStruct = packed record
Count: Integer;
Params: TParamsSet;
end;

проверка наличия включенного параметра
if (Param2 in TempStruct.Params) then

| Сообщение посчитали полезным:

Rouse_ пишет:
роверка наличия включенного параметра
if (Param2 in TempStruct.Params) then

Да, это что вроде того... но что делать с Unused? Как получить остальные 5 бит?

А ничего в Delphi такого стандартного нету?

| Сообщение посчитали полезным:

А зачем получать Unused если оно действительно Unused?!
Ну расширь перечислимый тип на еще 5 Unused элементов

| Сообщение посчитали полезным:

Rouse_ пишет:
А зачем получать Unused если оно действительно Unused?!

Unused тут просто название элемента, оно тоже используется. Можно переименовать его в StronglyUsed

Rouse_ пишет:
Ну расширь перечислимый тип на еще 5 Unused элементов

Не удобно как то... надо потом получить эти 5 бит в байте, придется еще кучу кода писать

Мне надо вызвать из Делфи функцию из библы написанной на С++, вот эти заморочки никак обойти не могу... Точнее могу, но хочется как то попроще все сделать.

| Сообщение посчитали полезным:

Ну если очень сильно хочется то извлекай пятибитовую перменную вот так:

FiveBitValue: Byte;
begin
Move(TempStruct.Params, FiveBitValue, 1);
FiveBitValue := FiveBitValue shr 3;

| Сообщение посчитали полезным: