Class Tdoubly_linked_list (unit Gameform)

Inherits from

TObject

This is a bit excessive really, it works though ! } { bigger than it needs to be because of dynamic allocation and fixed limits } { by which I mean - maximum number of bullets is fixed, so linked list has limits at both ends } { ....and crap coding here ! (true too)

Constructors


constructor create(size:integer);

---------------------------------------------------------------------------- } { Doubly linked list } { ---------------------------------------------------------------------------- } { this is really dreadful, but it works


Functions

destructor destroy;


procedure freeup(num:integer);


procedure initialize;


function nextfree : integer;


Properties

Events

Variables

firstfree : integer;


firstused : integer;


lastfree : integer;


lastone : ^indexarray;


lastused : integer;


listsize : integer;


listsizem1 : integer;


nextone : ^indexarray;


objects : ^objectarray;



Constructors


constructor create(size:integer);

---------------------------------------------------------------------------- } { Doubly linked list } { ---------------------------------------------------------------------------- } { this is really dreadful, but it works


Functions


destructor destroy;


procedure freeup(num:integer);


procedure initialize;


function nextfree : integer;


Properties


Events


Variables


firstfree : integer;


firstused : integer;


lastfree : integer;


lastone : ^indexarray;


lastused : integer;


listsize : integer;


listsizem1 : integer;


nextone : ^indexarray;


objects : ^objectarray;