Thanx

2. Don’t remove/destroy the bullet objects when you are done with them, just fill them with an empty dummy image and dummy values. And when need the bullet again, just check if the bullet has the dummy image/values and if this is the case fill this dummy bullet object with the real values. It’s not particularly a good solution either, because it can use up a lot of memory, but could be an interesting idea if you want to stick with (dynamic) arrays.

3. I just found a nice example on how to use TList: http://www.delphibasics.co.uk/RTL.asp?Name=TList. You can remove an object with yourList.Delete(indexNumber); but I’m not quite sure if it reorders automatically, so you may need to use yourList.Sort(…) afterwards.

I hope that helps.

pBullet = Object
public
x,y,xspeed,yspeed,img: integer;
end;

{ Later on }
if(not(firing)) then exit;
setlength(PBullets,length(PBullets)+1);
PBullets[length(PBullets)-1].img := 2;
PBullets[length(PBullets)-1].x := round(x)+8;
PBullets[length(PBullets)-1].y := round(y)+5;
PBullets[length(PBullets)-1].xspeed := 350;
PBullets[length(PBullets)-1].yspeed := 0;

I just haven’t added anything in to check if the bullets are outside of the screen, and if they are, delete them.

The main problem I foresee is when removing the bullets – I’m not sure how I’d go about removing them from the array… With Java’s vectors, it’s easy. Just do yourVector.Remove(indexNumber); and it removes the entry at the index + reorders the vector to fill in the gap.

Just a note on your need for Java’s vectors: Aren’t Pascal dynamic arrays enough?
Something like following (it don’t exactly how the Andorra 2D objects look like neither how you managed your classes, so it’s just a simple idea):

TBullet = class
private
fPositon: TPoint; // or something similar
fSprite: TSpriteObject;
public
constructor Create;
procedure Draw;
procedure Update;
end;

TPlayer = class
private
Bullet: array of TBullet;
fNumber: Integer;
public
constructor Create;
procedure Shoot;
procedure Draw;
procedure Update;
end;

TGame = class
private
…
public
constructor Create;
procedure Draw;
procedure Update;
end;

procedure TBullet.Draw;
begin
// Draw Bullet @ fPosition
end;

procedure TBullet.Update;
begin
// Move Bullet to the right
end;

procedure TPlayer.Shoot;
begin
fNumber := fNumber + 1;
SetLength(Bullet, fNumber);
Bullet[fNumber] := TBullet.Create;
end;

procedure TPlayer.Draw;
var i: Integer;
begin
for i := 0 to High(Bullet) do Bullet.Draw;
end;

procedure TPlayer.Update;
var i: Integer;
begin
for i := 0 to High(Bullet) do Bullet.Update;
end;

procedure TGame.Draw;
begin
// Draw TPlayer
end;

procedure TGame.Update;
begin
// Collision detection
// If bullets hit the right of the screen, destroy them
end;

Again, just an idea and not tested. It’s just how I would solve this and the framework I’m using would support something like that.