Class TIDSet (unit IDSetU)

Inherits from

TObject

Constructors



Functions

procedure Add(ri: longint);

sentinal at end

procedure Append(FromSet: TIDSet);


procedure Delete(ri: longint);

This is used if it known that ri is not on the list.

destructor Destroy;

TIDSet Methods

procedure Difference(Set1,Set2: TIDSet);


procedure Empty;


procedure Exclusive(Set1,Set2: TIDSet);


function Get(w: word): longint;


procedure Intersection(Set1,Set2: TIDSet);


function IsIn(ri: longint; var place: word): boolean;


function SetPointer: pointer;


procedure Union(Set1,Set2: TIDSet);


procedure Glue(ri: longint);


procedure Grow;


procedure SetCapacity(NewCapacity: word);


procedure SetCount(NewCount: word);


Properties

property Capacity : word


property Count : word


Events

Variables

FCapacity : word;


FCount : word;


FSet : PLongArray;



Constructors


Functions


procedure Add(ri: longint);

sentinal at end


procedure Append(FromSet: TIDSet);


procedure Delete(ri: longint);

This is used if it known that ri is not on the list.


destructor Destroy;

TIDSet Methods


procedure Difference(Set1,Set2: TIDSet);


procedure Empty;


procedure Exclusive(Set1,Set2: TIDSet);


function Get(w: word): longint;


procedure Intersection(Set1,Set2: TIDSet);


function IsIn(ri: longint; var place: word): boolean;


function SetPointer: pointer;


procedure Union(Set1,Set2: TIDSet);


procedure Glue(ri: longint);


procedure Grow;


procedure SetCapacity(NewCapacity: word);


procedure SetCount(NewCount: word);


Properties


property Capacity : word


property Count : word


Events


Variables


FCapacity : word;


FCount : word;


FSet : PLongArray;