Биты в структурах

← →
noname © (2004-09-14 15:50) [0]

Можно ли реализовать такой тип в Delphi:

typedef struct SomeStruct{
BYTE a1: 4;
BYTE a2: 3;
BYTE a3: 1;
}

То есть элемент размеров меньше 1 байта.

← →
Суслик © (2004-09-14 15:55) [1]

в точности так нельзя

но можно заменить это одним байтом - типом Byte и самому через битовые операции работать с битами

Нечто похожее по функциональности, но не по сути:
type SomeStruct = class private FByte: Byte; function Get_A1: Byte; function Get_A2: Byte; function Get_A3: Byte; procedure Set_A1(Value: Byte); procedure Set_A2(Value: Byte); procedure Set_A3(Value: Byte); public property A1: Byte read Get_A1 write Set_A1; property A2: Byte read Get_A2 write Set_A2; property A3: Byte read Get_A3 write Set_A3; end;

С уважением.

Биты в структурах Найти похожие ветки