Generische Bitfield Klasse

[pustekuchen]

Hallo zusammen,

ich habe vor eine generische Bitfield Klasse zu schreiben, um die Standardfunktionen GetBits und SetBits nicht mit jedem Bitfeld neu implementieren zu müssen und unterschiedliche Integrale Datentypen zu verwenden (bzw. die Bitfield Größe anhand des Generischen Typs zu bestimmen).

Meine Idee war wie folgt:

Delphi-Quellcode:

  IBitwiseOperations = interface
    ['{820D0E60-9815-4D14-8282-99ACCC5D80E2}']
    function Shr(const Amount: Integer): IBitwiseOperations;
    function And(const Other: IBitwiseOperations): IBitwiseOperations;
  end;

  TBitfield<TFieldType : IBitwiseOperations> = class
    private
      function GetBits(const aIndex: Integer): TFieldType;
      procedure SetBits(const aIndex: Integer; const aValue: TFieldType);
    public
      Flags: TFieldType;
  end;

TMyBitfield = class (TBitfield<Word>)
public 
    property BitfieldA: Word index $0002 read GetBits write SetBits;
    property BitfieldB: Word index $0202 read GetBits write SetBits;
end;

implementation
{ TBitfield<TFieldType> }

function TBitfield<TFieldType>.GetBits(const aIndex: Integer): TFieldType;
var
  Offset: Integer;
  NrBits: Integer;
  Mask: Integer;
begin
  NrBits := aIndex and $FF;
  Offset := aIndex shr 8;

  Mask := ((1 shl NrBits) - 1);

  Result := (Flags shr Offset) and Mask;
end;

procedure TBitfield<TFieldType>.SetBits(const aIndex: Integer; const aValue: TFieldType);
var
  Offset: Integer;
  NrBits: Integer;
  Mask: Integer;
begin
  NrBits := aIndex and $FF;
  Offset := aIndex shr 8;

  Mask := ((1 shl NrBits) - 1);
  Assert(aValue <= Mask);

  Flags := (Flags and (not(Mask shl Offset))) or (aValue shl Offset);
end.

Jedoch erhalte ich die Meldung E2029, Bezeichner erwartet aber Shr gefunden und
F2084 Interner Fehler: AV662429BF(661D0000)-R00000000-0

Das IBitwiseOperations wollte ich verwenden, um dem generischen Datentypen ein Constraint hinzuzufügen, damit der Compiler weiß, dass dieser Typ die Bitoperationen implementiert haben muss.

Mask sollte wohl dann auch besser TFieldType sein.


Hättet ihr Ideen, wie man das lösen könnte?

[jaenicke]

Nenne deine Funktionen im Interface nicht wie reservierte Bezeichner (shl, shr). Ich vermute, dass der Fehler schon dort kommt. Außerdem musst du diese Funktionen dann auch nutzen.

[joachimd]

erinnert mich stark an https://docwiki.embarcadero.com/RADS...ading_(Delphi)

[peterbelow]

Zitat von pustekuchen:

Hallo zusammen,

ich habe vor eine generische Bitfield Klasse zu schreiben, um die Standardfunktionen GetBits und SetBits nicht mit jedem Bitfeld neu implementieren zu müssen und unterschiedliche Integrale Datentypen zu verwenden (bzw. die Bitfield Größe anhand des Generischen Typs zu bestimmen).

Vielleicht nützt Dir die Unit im angehängten Zip-File bei diesem Projekt.

[Dennis07]

Passend dazu, meine CustomSets-Unit.