Bitfelder in Delphi fast wie in C

**Ohwie**

Bitfelder zum einfachen Zugriff auf Teile eines Integers werden in C sehr einfach z.B. mit:

typedef struct _XY
{
WORD BF1:2;
WORD BF2:1;
WORD BF3:3;
WORD BF4:1;
WORD BF5:1;
WORD BFRest:8;
} XY;
beschreiben.

In Delphi fehlt diese Möglichkeit leider:
Eine Annäherung geht mit folgender Klassendefinition:

zusammenfalten · markieren

Delphi-Quellcode:

			TIFIELD = class

  private

    procedure SetFeld(Start: SmallInt; Breite: SmallInt; BitValue: DWORD);

    function GetFeld(Start: SmallInt; Breite: SmallInt): DWORD;

  public

    property Feld[Start, Breite: SmallInt]: DWORD read GetFeld write SetFeld;

    default;

  end;

  PIFIELD = ^TIFIELD

procedure TIFIELD.SetFeld(Start: SmallInt; Breite: SmallInt; BitValue: DWORD);

var

  Maske: DWORD;

begin

  asm

     mov Edx,Eax

     mov EAx,-1

     mov cx,32

     sub cx,Breite

     shr Eax,cl

     mov cx,Start

     shl Eax,cl

     not EAX

     mov Maske,eax

     mov Eax,BitValue

     shl Eax,cl

     mov BitValue,eax

     mov Eax,[edx]

     and eax,maske

     Or eax,BitValue

     mov [edx],eax

  end;

end;

function TIFIELD.GetFeld(Start, Breite: SmallInt): DWORD;

var

  Maske: DWORD;

begin

  asm

     mov Edx,Eax

     mov EAx,-1

     mov cx,32

     sub cx,Breite

     shr Eax,cl

     mov cx,Start

     shl Eax,cl

     mov Maske,eax

     mov eax,[edx]

     and eax,maske

     mov  cx,Start

     shr eax,cl

     mov Result,eax

  end;

  //  Result := (Value and Maske) shr Start;

end;

Der Zugriff auf einzelen Bitfelder sieht dann wie folgt aus:

markieren

Delphi-Quellcode:

			var

   Value:Integer;

   BF:TIFIELD;

   XY:Integer;(oder WORD oder DWORD oder BYTE)

   BF := TIFIELD(@XY)

   Value := BF[3,3]; //Zugriff auf 3 Bit's beginnend an der 3. Position

oder:

   BF[5,3]:= 6;  //setzt ein Feld von 3 Bit's beginnend an der 5. Position

Ich hoffe es nützt.

Bitfelder in Delphi fast wie in C

Bitfelder in Delphi fast wie in C

Forumregeln