Class TLongArray (unit NFILists) |
Inherits from
TObject
but hey... TLongArray is one based!
constructor Create;
- =======================================================================} { ** TLONGARRAY CODE } {=======================================================================
procedure Add(ALongInt: LongInt);
procedure Dec(AtPos, ANum: LongInt);
destructor Destroy;
procedure Inc(AtPos, ANum: LongInt);
procedure Insert(AtPos: LongInt; ALongInt: LongInt);
Point it to the one we are deleting
procedure Remove(AtPos: LongInt);
procedure Replace(AtPos: LongInt; ALongInt: LongInt);
procedure Reset;
function GetAtPos(Index: Integer): LongInt;
function GetCount: LongInt;
Truncates the buffer at datasize
procedure Grow;
procedure ReplacePos(Index: Integer; AValue: LongInt);
Used for setting the "write" property of "At"
procedure Truncate;
Conducts a 4k increment Add 4 extra kb to the end of the buffer
property At : LongInt
property Count : LongInt
property Data : Pointer
property Size : LongInt
Buffer : Pointer;
BufferSize : LongInt;
DataSize : LongInt;
constructor Create;
=======================================================================} { ** TLONGARRAY CODE } {=======================================================================
procedure Add(ALongInt: LongInt);
procedure Dec(AtPos, ANum: LongInt);
destructor Destroy;
procedure Inc(AtPos, ANum: LongInt);
procedure Insert(AtPos: LongInt; ALongInt: LongInt);
Point it to the one we are deleting
procedure Remove(AtPos: LongInt);
procedure Replace(AtPos: LongInt; ALongInt: LongInt);
procedure Reset;
function GetAtPos(Index: Integer): LongInt;
function GetCount: LongInt;
Truncates the buffer at datasize
procedure Grow;
procedure ReplacePos(Index: Integer; AValue: LongInt);
Used for setting the "write" property of "At"
procedure Truncate;
Conducts a 4k increment
Add 4 extra kb to the end of the buffer
property At : LongInt
property Count : LongInt
property Data : Pointer
property Size : LongInt
Buffer : Pointer;
BufferSize : LongInt;
DataSize : LongInt;