動的に作成したTimageの削除方法 (ID：10718)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

public
    Images: Array[0..50] of TImage;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Images[0] := TImage.Create(self);
  Images[0].Parent := self;
  Images[0].Top := 10;
  Images[0].Left := 10;
  Images[0].AutoSize := true;
  Images[0].Picture.LoadFromFile('C:\Borland Shared\Images\Splash\256Color\shipping.bmp');

Images[1] := TImage.Create(self);
  Images[1].Parent := self;
  Images[1].Top := 10;
  Images[1].Left := 210;
  Images[1].AutoSize := true;
  Images[1].Picture.LoadFromFile('C:\Borland Shared\Images\Splash\256Color\shipping.bmp');

Images[2] := TImage.Create(self);
  Images[2].Parent := self;
  Images[2].Top := 10;
  Images[2].Left := 410;
  Images[2].AutoSize := true;
  Images[2].Picture.LoadFromFile('C:\Borland Shared\Images\Splash\256Color\shipping.bmp');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  for i := 0 to High(Images) do
    if Assigned(Images[i]) then begin
       Images[i].Free;
       Images[i] := nil;
       Break;
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i:integer;
begin
  for i := 0 to High(Images) do
    if Assigned(Images[i]) then begin
       Images[i].Free;
       Images[i] := nil;
    end;
end;

このようにして、Button1 を押すたびに一つずつ Free しても問題ありません。
また、Button2 を押すと一括して Free します。

問題を単純化して個別に検証することは重要です。

←解決時は質問者本人がここをチェックしてください。

戻る