[The Shadow]

Во многих программах есть история, я попытался сделать массив из TImage, но когда пытаюсь получить Image из этого массива ничего не происходит.

Код:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  images: array of TImage;
  index: Integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Canvas.Rectangle(10, random(50), 50, random(100));
SetLength(images, Length(images) + 1);
images[High(images)]:=TImage.Create(nil);
images[High(images)]:=Image1;
index:=index + 1;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
index:=index - 1;
Image1.Picture.Assign(images[index].Picture);
Image1.Refresh;
end;
end.

Это упрощенная версия кода.

[Aristarh Dark]

В процедуре получения картинки ты используешь Assign, а почему ты не используешь его в процедуре укладки картинки в массив? И еще, отвлеченно, представь себе размер памяти занимаемый массивом хотя бы из 10-20 изображений размерами 1600x2400...