mehrere Bilder Speicher verwalten

[Bummi]

Ich weiß nicht ob es in den alten Versionen schon TObjectlist gab, daher mit TList, ungetestet, ohne Fehlerbehandlung, nicht optimiert ....

Delphi-Quellcode:

private
FList:TList;
..
..
procedure TForm1.FormCreate(Sender: TObject);
begin
  FList := TList.Create;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
var
  i:Integer;
begin
  for i  := 0 to FList.Count - 1 do TObject(FList[i]).Free;
  FList.Free;
end;


Procedure TForm1.AddToList;
var
 bmp:TBitmap; 
begin
 bmp := TBitmap.Create;
 bmp.assign(Image1.Picture.Bitmap);
 FList.add(bmp);
end;

Procedure LoadFormList(index:Integer);
begin
  Image1.Picture.Bitmap.assign(FList[index]);
end;