Хитрый packed record

[Djaba]

Добрый день.
Нужно перевести на делфи запись

typedef struct _FTSTAT {
DWORD fEof : 1;
DWORD fTim : 2;
DWORD fReserved : 25;
DWORD fDummy : 17;
DWORD cbInQue;
} FTSTAT;

Я знаю только http://docwiki.embarcadero.com/RADSt...ields_(Delphi) . А что делать с полями с выравниванием 17, 25 ?

[саша40]

Так пойдет:

Type 
FTSTAT = record 
fEof: DWORD = 1;
fTim: DWORD = 2;
fReserved: DWORD = 25;
fDummy: DWORD = 17;
cbInQue: DWORD; 
end;

[Filka]

http://www.rvelthuis.de/articles/art...html#bitfields

[min@y™]

Это не выравнивание, и битовые поля.

struct CELL {   // Declare CELL bit field
    unsigned short character  : 8;  // 00000000 ????????
    unsigned short foreground : 3;  // 00000??? 00000000
    unsigned short intensity  : 1;  // 0000?000 00000000
    unsigned short background : 3;  // 0???0000 00000000
    unsigned short blink      : 1;  // ?0000000 00000000
} screen[25][80];       // Array of bit fields

[Vapaamies]

Сообщение от Djaba

А что делать с полями с выравниванием 17, 25 ?

Если даже в новых версиях Delphi нет ключевого слова bitpacked, то эту структуру напрямую на нем не описать, нужно придумывать обходные пути. ЕМПИП, ключевое слово bitpacked в FPC есть.

[min@y™]

нужно придумывать обходные пути.

Ну, для начала, надо придумать такое задание, при выполнении которого будет оправданным использование подобной свистоперделки.
А сам тип изобразить можно при помощи свойств и методов доступа.

[Djaba]

Спасибо Filka, min@y™.
Тогда на примере
struct _CELL { // Declare CELL bit field
unsigned short character : 8; // 00000000 ????????
unsigned short foreground : 3; // 00000??? 00000000
unsigned short intensity : 1; // 0000?000 00000000
unsigned short background : 3; // 0???0000 00000000
unsigned short blink : 1; // ?0000000 00000000
} CELL;
буду пробовать делать так:

var character, foreground,intensity,background , blink :word;

type CELL = packed record
b_character:byte; //8 bits
b_foreground_intensity_background_b link:byte; //суммарно тоже 8 бит
end;
.........
character:=b_character;
foreground:= (b_foreground_intensity_background_ blink and $7);
intensity:= (b_foreground_intensity_background_ blink and $8) shr 3;
background:= (b_foreground_intensity_background_ blink and $70) shr 4;
blink:= (b_foreground_intensity_background_ blink and $80) shr 7;

[min@y™]

буду пробовать делать так

А зачем всё это?
Как звучит задание в оригинале?

[Djaba]

Сам оригинал большой и особой ценности не представляет. Выяснилось, что через двоеточие обозначается количество бит, выделяемое в записи под переменную. Компилятор делфи скорее всего не поддерживает подобный синтаксис (ну я нигде не нашел), и отдельные биты приходится вручную распихивать по переменным.

[min@y™]

Сам оригинал большой и особой ценности не представляет.

Я не спрашивал про ценность, я спрашивал:

Как звучит задание в оригинале?

Ибо, тема очень сильно тянет вот сюда.

КОЛИСЬ ДАВАЙ, ПАРТИЗАН!!!