liberar memoria
 

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

Hola Celta.

Estuve mirando tu código y lo identé para mayor legibilidad, aunque veo que Casimiro ya lo ha echo... ( gracias.:))

Al liberar los objetos TImagen, tenés usar el ciclo en forma descendente, ya que cuando un objeto es
liberado la posición es ocupada por el sucesor y cuando la variable de control llegue al valor Count - 1
seguro que hay menos objetos que ese valor.

Te puse el código con algunas correcciones, el cual probé con otras imágenes en una prueba sencilla.
No verifiqué la validez de las evaluaciones del condicional if, pero si son correctas, este código no debería darte error:

Código Delphi [-]
  for i := ListaEne.Count -1 downto 0 do
  begin
    // suponiendo que 'ene' es de tipo TImage
    // y que las comprobaciones sean correctas...
    Ene := ListaEne.Items[i];
    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
      TImage(ListaEne.Items[i]).Free;
      ListaEne.Delete(i);
    end;
  end;

Ya que simplificando el ejemplo, sería:

Código Delphi [-]
   for i:= ListaEne.Count-1 downto 0 do
   begin
     Ene:= ListaEne.Items[i];
     if Ene.Name = 'Imagen1' then
     begin
       TImage(ListaEne.Items[i]).Free;
       ListaEne.Delete(i);
     end;
   end;

Un saludo.

amigo celta ese juego que estas haciendo sera comercial o lo liberara cuando lo termine me gustaria ver el codigo completo del juego

si me da error
 

:eek: no se por que me da error la parte de Ene := ListaEne.Items[i];

Hola Celta.

La verdad que yo tampoco por que no me dá ningún error de ese modo.
Te pongo la prueba sencilla que hice, por ahí te sirve para sacar alguna idea.

Código Delphi [-]
type
  TForm1 = class(TForm)
    btCargar: TButton;
    btMostrar: TButton;
    btLiberar: TButton;
    procedure btCargarClick(Sender: TObject);
    procedure btMostrarClick(Sender: TObject);
    procedure btLiberarClick(Sender: TObject);
  private
    FLst: TList;
  public
  end;

var
  Form1: TForm1;

implementation {$R *.dfm}

uses Jpeg;

procedure TForm1.btCargarClick(Sender: TObject);
var
  Img: TImage;
  i: Integer;
begin
  FLst:= TList.Create;
  for i:= 1 to 5 do
  begin
    Img:= TImage.Create(Self);
    Img.Name:= 'Img'+IntToStr(i);
    Img.Left := 120*i;
    Img.Stretch:= True;
    Img.Picture.LoadFromFile('C:\FOTO.JPG'); // la imagen que quieras
    FLst.Add(Img);
  end;
end;

procedure TForm1.btMostrarClick(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to FLst.Count -1 do
    TImage(FLst.Items[i]).Parent:= Self;
end;

procedure TForm1.btLiberarClick(Sender: TObject);
var
  i: Integer;
  Ene: TImage;
begin
  for i:= FLst.Count - 1 downto 0 do
  begin
    Ene:= TImage(FLst.Items[i]);
    if (Ene.Name = 'Img1') or (Ene.Name = 'Img3') then
    begin
      TImage(FLst.Items[i]).Free;
      FLst.Delete(i);
    end;
  end;
end;

Funciona igual si eliminas todos los items de la lista, el if lo puse para simular un condicional como en tu código.

Espero te ayude.

Saludos.:)

Ahora Si Me Funciona =d
 

Grasias Ahora Si Me Funciona
Saludos