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.