Ver Mensaje Individual
  #1  
Antiguo 09-12-2017
Aszael Aszael is offline
Registrado
 
Registrado: nov 2017
Posts: 7
Reputación: 0
Aszael Va por buen camino
Unhappy ¿Cómo eliminar varias imágenes cargadas en un solo TImage?

Hola, he leído sobre cómo liberar imágenes de un TImage, pero al intentar hacer lo mismo con muchas imágenes, solo consigo eliminar la última imagen cargada. Entonces, ¿Cómo libero/quito/elimino varias imágenes cargadas en un solo TImage?

Tengo un código que genera una cadena de imágenes, una detrás de otra: en el array bloque[f,c] tengo un orden establecido de 0s y 1s...
Código Delphi [-]
procedure dibujar();
var f,c:integer;
begin
  for f:=1 to fils do
    for c:=1 to cols do begin
      imagen:=TImage.Create(Form);
      with imagen do begin
        if(bloque[f,c]=1)then begin
          picture.LoadFromFile('images/bloque.jpg');
          parent:=Form;
        end;
      end;
    end;
end;

Bueno, y el problema es que cuando hago algo como esto, no me libera todos los bloques (imagen .jpeg) cargados; llamo a este procedimiento con un botón:
Código Delphi [-]
procedure liberar();
var f,c:integer;
begin
  if assigned (imagen) then begin
   for f:=1 to fils do
    for c:=1 to cols do begin
      if(bloque[f,c]=1)then begin
        imagen.picture:=nil;
      end;
    end;
  end;
end;

Intente de varias formas, pero solo me elimina la última imagen cargada, agradezco enormemente su tiempo, gracias.
Responder Con Cita