Bitpacked Record

[Der schöne Günther]

Die Delphi-Sprache gibt das leider wirklich überhaupt nicht her, ich habe das gleiche Problem auch aufgeschoben. Meine erste Idee war alle Felder über einzelne Getter und Setter umzusetzen- Weil auf lange Sicht geht doch da jegliche Übersicht flöten...

[himitsu]

Jupp, Delphi kann nur Byteweise programmiert werden.
Selbst der Boolean ist ein Byte groß (1x False und 255x True)

Aber über Record-Property kannst du das selber lösen.

Delphi-Quellcode:

type
  TMyRec = record
  private
    function  GetBit0: Boolean;
    function  GetBool(Index: Integer):       Boolean;
    procedure SetBool(Index: Integer; Value: Boolean);
    function  GetByte(Index: Integer):       Byte;
    procedure SetByte(Index: Integer; Value: Byte);
  public
    FFields: LongWord;
    property Bit0: Boolean  read GetBit0 write GetBit0;
    property Bit1: Boolean  index 1 read GetBool write SetBool;
    property Bit2: Boolean  index 2 read GetBool write SetBool;
    property Bit3bis4: Byte index 0302 read GetByte write SetByte;  // 2 lang, ab der 3
  end;

Und dann in den Gettern/Settern die gewünschten Bits rausholen.

[Dejan Vu]

oder einfach nur eine Property (sollte doch so gehen, oder?)

Delphi-Quellcode:

Type
  TByte = Record
  private
    fByte : Byte;
    function GetBits(start,length : Integer) : Byte;
    procedure SetBits(start,length : Integer; value : Byte);
  public
    Property Bits[start,length : integer] : Byte Read GetBits Write SetBits;
  end

[himitsu]

Joar.

Für einbittige Sachen lässt sich das in meine Struktur auch bereits mit einbinden.
property Bit[idx: Integer]: Boolean read GetBool write SetBool;
Ist ja egal, ob der Index von intern oder extern kommt.

Und intern wird dann einfach mit SHL/SHR/AND/OR rumgefummelt.