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;