Still stumped with EAccess Violation Error (UnDelphiX)

[Wizard]

Guys, I'm bugged with this error. It's driving me insane! Error EACCESS VIOLATION with message ACCESS VIOLATION at address 00479966 ... Delphi tells me the error ocurred in DXSprite Class, procedure TSprite.Dead and in the line:
FEngine.FDeadList.Add(Self);

I posted previously about the same error, I thought it had gone away but no. Problem is that it only happens in full screen mode and it sort of happens when it whants too. I tried setting breakpoints but can't find the error in my code. Someone said it might be that an item in dxSpriteEngine.Engine.items list is invalid or points to nill. How do I check for an invalid item?

Anyone experiencing the same problem or know what's causing it? Any help would be appreciated.

[Wizard]

OK. I finally killed the EACCESS VIOLATION error...I hope so, did a lot of testing and it seems to be resolved :-)

The problem seems to be this:

- I had DXSpriteEngine.Items.Clear

- Which I changed to:

for i:= DXSpriteEngine.Engine.AllCount-1 downto 0 do
begin
if (DXSpriteEngine.Engine.Items[i] <> nil) then
begin
DXSpriteEngine.Engine.Items[i].dead;
end;
end;

- Which also caused the error and finally I changed it to

DXSpriteEngine.ENGINE.Clear, which seems to be doing the job of clearing/freeing my sprites.

[seiferalmasy]

the engine clear isnt bug proof either. I used it and went to the example you gave which sorted me. Also, I figured out why I was having access errors:

Make sure your sprite is being killed before it is allowed to execute a domove event.

Let me explain

In my pong game, I kill all 3 sprites when a round is over then a new round begins they are recreated. If your sprite is killed and then domove is being run it is no longer available and will show an access error. It will usually happen if you have sprites being created right after being killed.

To fix make sure you call Spriteengine.dead; DIRECTLY AFTER killing sprites (force it to be used immediately following destroy of sprites). This will make sure dead is updated before the move section.

Also place Spriteengine.dead; ABOVE your Spriteengine.move; in your timer.

[Wizard]

Hi, thanks for the reply. I don't know, I immediately got the same error when I went back to: for i:= DXSpriteEngine.Engine.AllCount-1 downto 0 do ...... Delphi stops at Sprite.Dead, FEngine.FDeadList.Add(Self);

And when I call spriteEngine.dead immediately after calling bullet.dead in my collission procedure I get an error about Index being out of bounds...

I did put .dead before .move as you suggested and changed back to engine.clear and no errors.

Do you maybe know when UnDelphiX will be made bug free? I know I should be learing other libraries like SDL and OpenGl, but I like UnDelphiX and it will allways have a soft spot for me because I started game programming with it :-)

[User137]

Just making sure... Your collision function doesn't accidentally hold another count variable or refers to removed objects?

[Wizard]

This is my collision procedure:

procedure TFormGame.BulletCollision(Sender:TObject;var done:Boolean);
begin
   if (sender is TEnemy) then
        begin
             Enemy := TEnemy(sender);
             if (not Enemy.Hit) then
                begin
                  Explode := TExplode.Create(dxSpriteEngine.Engine);
                  Explode.X := Enemy.X;
                  Explode.Y := Enemy.Y;
                  Enemy.hit := true;
                  Enemy.Dead;
                  Bullet.Dead;
                  Inc(Points,100);
                  Inc(EnemyCount,1);
                  if (enemy.hit)then
                  begin
                    FormGame.DXWaveList.Items.Find('Explode').Play(false);
                    Enemy := TEnemy.create(dxspriteEngine.Engine);
                  end;
                end;
        end
         else

[Legolas]

procedure TFormGame.BulletCollision(Sender:TObject;var done:Boolean);
begin
   if (sender is TEnemy) then
        begin
             Enemy := TEnemy(sender);
             if (not Enemy.Hit) then
                begin
                  Explode := TExplode.Create(dxSpriteEngine.Engine);
                  Explode.X := Enemy.X;
                  Explode.Y := Enemy.Y;
                  Enemy.hit := true;
                  Enemy.Dead;   <--------------- 
                  Bullet.Dead;
                  Inc&#40;Points,100&#41;;
                  Inc&#40;EnemyCount,1&#41;;
                  if &#40;enemy.hit&#41;then <----------------- 
                  begin
                    FormGame.DXWaveList.Items.Find&#40;'Explode'&#41;.Play&#40;false&#41;;
                    Enemy &#58;= TEnemy.create&#40;dxspriteEngine.Engine&#41;;
                  end;

                end;
        end
         else

You are calling enemy.hit after an enemy.dead call. Maybe this could cause some issues

[seiferalmasy]

true!

[Wizard]

Thanks for the replies guys.

procedure TFormGame.BulletCollision(Sender:TObject;var done:Boolean); 
begin 
   if (sender is TEnemy) then 
        begin 
             Enemy := TEnemy(sender); 
             if (not Enemy.Hit) then 
                begin 
                  Explode := TExplode.Create(dxSpriteEngine.Engine); 
                  Explode.X := Enemy.X; 
                  Explode.Y := Enemy.Y; 
                  Enemy.hit := true; 
                  Enemy.Dead;   <--------------- 
                  Bullet.Dead; 
                  Inc&#40;Points,100&#41;; 
                  Inc&#40;EnemyCount,1&#41;; 
                 &#91;b&#93; if &#40;enemy.hit&#41;then <---------// Should it be if         &#40;enemy.deaded&#41;?&#91;/b&#93; begin 
                    FormGame.DXWaveList.Items.Find&#40;'Explode'&#41;.Play&#40;false&#41;; 
                    Enemy &#58;= TEnemy.create&#40;dxspriteEngine.Engine&#41;; 
                  end; 

                end; 
        end 
         else

Or should it be :

   Enemy.Dead;   <--------------- 
                  Bullet.Dead; 
                  Inc&#40;Points,100&#41;; 
                  Inc&#40;EnemyCount,1&#41;; 
                  FormGame.DXWaveList.Items.Find&#40;'Explode'&#41;.Play&#40;false&#41;; 
                  Enemy &#58;= TEnemy.create&#40;dxspriteEngine.Engine&#41;;

[Legolas]

You will need to call Enemy.dead only when you are sure that you don't need to access the Enemy object anymore:

[pascal]
Enemy := TEnemy(sender);
if (not Enemy.Hit) then
begin
Enemy.hit := true;
Enemy.doSomething();
Enemy.whatever();
Enemy.foo := 12;
...

if (Enemy.hit) then
begin
DoSomeStuff();
...
end;

Enemy.Dead; // After this call, you can't access Enemy object anymore!
end;
[/pascal]