| Class Tdoubly_linked_list (unit Gameform) |
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);| 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;