Class TLongIntList (unit mwPCharList) |
Inherits from
TObject
constructor Create;
- TLongIntList } { TLongIntList constructor and destructor +++++++++++++++++++++++++++++++++++++
function Add(Item: LongInt): Integer;
SetItems } { TLongIntList public +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
procedure Clear;
Add
procedure Delete(Index: Integer);
Clear
procedure DeleteGroup(StartIndex: LongInt; GroupCount: LongInt);
Delete
destructor Destroy;
Create
procedure Exchange(Index1, Index2: Integer);
DeleteGroup
function First: LongInt;
Exchange
function IndexOf(Item: LongInt): Integer;
First
procedure Insert(Index: Integer; Item: LongInt);
IndexOf
function Last: LongInt;
Insert
procedure Move(CurIndex, NewIndex: Integer);
Last
function Remove(Item: LongInt): Integer;
Move
function GetItems(Index: Integer): LongInt;
Destroy } { TLongIntList protected ++++++++++++++++++++++++++++++++++++++++++++++++++++++
procedure SetCapacity(NewCapacity: Integer);
GetItems
procedure SetCount(NewCount: Integer);
SetCapacity
procedure SetItems(Index: Integer; Item: LongInt);
SetCount
property Capacity : Integer
property Count : Integer
property Items : LongInt
property LongIntList : PLongIntArray
FCapacity : Integer;
FCount : Integer;
FLongIntList : PLongIntArray;
constructor Create;
TLongIntList } { TLongIntList constructor and destructor +++++++++++++++++++++++++++++++++++++
function Add(Item: LongInt): Integer;
SetItems } { TLongIntList public +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
procedure Clear;
Add
procedure Delete(Index: Integer);
Clear
procedure DeleteGroup(StartIndex: LongInt; GroupCount: LongInt);
Delete
destructor Destroy;
Create
procedure Exchange(Index1, Index2: Integer);
DeleteGroup
function First: LongInt;
Exchange
function IndexOf(Item: LongInt): Integer;
First
procedure Insert(Index: Integer; Item: LongInt);
IndexOf
function Last: LongInt;
Insert
procedure Move(CurIndex, NewIndex: Integer);
Last
function Remove(Item: LongInt): Integer;
Move
function GetItems(Index: Integer): LongInt;
Destroy } { TLongIntList protected ++++++++++++++++++++++++++++++++++++++++++++++++++++++
procedure SetCapacity(NewCapacity: Integer);
GetItems
procedure SetCount(NewCount: Integer);
SetCapacity
procedure SetItems(Index: Integer; Item: LongInt);
SetCount
property Capacity : Integer
property Count : Integer
property Items : LongInt
property LongIntList : PLongIntArray
FCapacity : Integer;
FCount : Integer;
FLongIntList : PLongIntArray;