| Class TIDSet (unit IDSetU) |
TObject
| Constructors |
| Functions |
procedure Add(ri: longint);
procedure Append(FromSet: TIDSet);
procedure Delete(ri: longint);
destructor Destroy;
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;