Change private filds on TBits class to protected
Original Reporter info from Mantis: MiniQ
-
Reporter name:
Original Reporter info from Mantis: MiniQ
- Reporter name:
Description:
For access to fields from descendant classes to change the section private to protected as shown below.
Additional information:
TBits = class(TObject)
protected
{ Private declarations }
FBits : ^TBitArray;
FSize : longint; { total longints currently allocated }
FBSize: longint; {total bits currently allocated}
findIndex : longint;
findState : boolean;
{ functions and properties to match TBits class }
procedure SetBit(bit : longint; value : Boolean);
procedure SetSize(value : longint);
procedure CheckBitIndex (Bit : longint;CurrentSize : Boolean);
public
{ Public declarations }
constructor Create(TheSize : longint = 0); virtual;
Mantis conversion info:
- Mantis ID: 25311
- Platform: any
- Version: 2.6.2
- Fixed in version: 3.1.1
- Fixed in revision: 30622 (#27ff4c95)
- Target version: 3.0.0