¡Hola,
Wellnic!
Como alternativa al Array, puedes hacer uso de la clase
TOBjectList<T>
Cita:
Empezado por Embarcadero
TObjectList es un TList con la capacidad de liberar automáticamente entradas de objetos cuando se eliminan de la lista...
|
Para prueba usé un archivo de 91 Kb, la carga de las imágenes fue de 1.4 segundos y al liberarlas tomó 23 milisegundos
Código Delphi
[-]
uses
System.Generics.Collections;
const
C_TOTAL = 1000;
var
i, idx: integer;
List: TObjectList< TImage >;
begin
List := TObjectList< TImage >.Create();
for i := 0 to C_TOTAL - 1 do
begin
idx := List.Add(TImage.Create(nil));
List[idx].Picture.LoadFromFile('Image1.bmp')
end;
List.Delete(0);
List.Clear;
List.Free;
end.