| Class TIntegerList (unit IntList) |
TPersistent
| Constructors |
constructor Create;| Functions |
function Add( Value : Integer ) : Integer;
procedure AddIntegers( List : TIntegerList );
procedure Assign( Source : TPersistent );
procedure Clear;
procedure Delete( Index : Integer );
destructor Destroy;
function Equals( List : TIntegerList ) : Boolean;
procedure Exchange( Index1, Index2 : Integer);
function IndexOf( N : Integer ) : Integer;
procedure Insert( Index : Integer; Value : Integer );
procedure Move( CurIndex, NewIndex : Integer );
procedure DefineProperties( Filer : TFiler );
function Find( N : Integer; var Index : Integer ) : Boolean;
function GetItem( Index : Integer ) : Integer;
procedure SetItem( Index : Integer; Value : Integer );
procedure Sort;
function GetCount : Integer;
procedure QuickSort( L, R : Integer );
procedure ReadIntegers( Reader : TReader );
procedure ReadMax( Reader : TReader );
procedure ReadMin( Reader : TReader );
procedure SetMax( Value : Integer );
procedure SetMin( Value : Integer );
procedure SetSorted( Value : Boolean );
procedure WriteIntegers( Writer : TWriter );
procedure WriteMax( Writer : TWriter );
procedure WriteMin( Writer : TWriter );| Properties |
property Count : Integer
property Duplicates : TDuplicates
property Items : Integer
property Max : Integer
property Min : Integer
property Sorted : Boolean| Events |
| Variables |
FDuplicates : TDuplicates;
FList : TList;
FMax : Integer;
FMin : Integer;
FSorted : Boolean;| Constructors |
constructor Create;==========================} {== TIntegerList Methods ==} {==========================
| Functions |
function Add( Value : Integer ) : Integer;
procedure AddIntegers( List : TIntegerList );= TIntegerList.SetMax =
procedure Assign( Source : TPersistent );Don't forget to free the container
procedure Clear;
procedure Delete( Index : Integer );
destructor Destroy;Create internal list to hold integers
function Equals( List : TIntegerList ) : Boolean;
procedure Exchange( Index1, Index2 : Integer);= TIntegerList.Equals =
function IndexOf( N : Integer ) : Integer;= TIntegerList.Find =
procedure Insert( Index : Integer; Value : Integer );= TIntegerList.IndexOf =
procedure Move( CurIndex, NewIndex : Integer );Insert integer onto internal list
procedure DefineProperties( Filer : TFiler );========================================================================= TIntegerList.DefineProperties This method instructs Delphi to include the Min and Max property values whenever a TIntegerList object is read from or written to a stream (e.g. a form file). This method also ensures that the list of integers gets stored in the stream as well. =========================================================================
function Find( N : Integer; var Index : Integer ) : Boolean;========================================================================= Find A protected method that implements a binary search function that is called by IndexOf only if the list is sorted. =========================================================================
function GetItem( Index : Integer ) : Integer;
procedure SetItem( Index : Integer; Value : Integer );
procedure Sort;= TIntegerList.QuickSort =
function GetCount : Integer;
procedure QuickSort( L, R : Integer );
procedure ReadIntegers( Reader : TReader );
procedure ReadMax( Reader : TReader );
procedure ReadMin( Reader : TReader );If form inheritance is being used, then only store integers if they differ from the ancestor property list.
procedure SetMax( Value : Integer );= TIntegerList.SetMin =
procedure SetMin( Value : Integer );
procedure SetSorted( Value : Boolean );Store the end of list marker
procedure WriteIntegers( Writer : TWriter );Read in the end of list marker
procedure WriteMax( Writer : TWriter );
procedure WriteMin( Writer : TWriter );| Properties |
property Count : Integer
property Duplicates : TDuplicates
property Items : Integer
property Max : Integer
property Min : Integer
property Sorted : Boolean| Events |
| Variables |
FDuplicates : TDuplicates;
FList : TList;
FMax : Integer;
FMin : Integer;
FSorted : Boolean;