hola a todos del foro, hace mucho que no me conectaba =D(ahora que terminaron mis clases vuelvo =D) estaba revisando mi juego que estaba asiendo y el problema con el que me encontre es que al querer liberar un objeto(la nave enemiga) producto de la colision no lo libera y me aparece un error "acces violation at address"
mi codigo con el que lo libero es el siguiente
Código Delphi
[-]
for i := 0 to (lista.Count - 1) do begin
imgmisil := TImage(lista[i]);
imgmisil.Top:=imgmisil.top-7;
end;
begin
for i := 0 to (listaene.Count -1) do begin
ene := TImage(listaene[i]);
begin
a1 := (imgmisil.Left + imgmisil.Width);
a2 := (ene.Left + ene.Width);
c1 := (imgmisil.Top + imgmisil.Height);
c2 := (ene.Top + ene.Height);
if (((imgmisil.Left < ene.Left) and (a1 > ene.Left)) and
((imgmisil.Top < ene.Top) and (c1 > ene.Top))) or
(((ene.Left < imgmisil.Left) and (a2 > imgmisil.Left)) and
((ene.Top < imgmisil.Top) and (c2 > imgmisil.Top))) or
(((imgmisil.Left < ene.Left) and (a1 > ene.Left)) and
((ene.Top < imgmisil.Top) and (c2 > imgmisil.Top))) or
(((ene.Left < imgmisil.Left) and (a2 > imgmisil.Left)) and
((imgmisil.Top < ene.Top) and (c1 > ene.Top))) then begin
ENE.FREE;
me parece que en la parte que falla es aqui
for i := 0 to (lista.Count - 1) do begin
saludos