TImage数组（Delphi Android）

Question

procedure TForm1.controlClick(Sender: TObject);
var
  i: Integer;
begin
  for i := 2 to Dest.Count-1 do
  begin
    img[i-2].Create(Form1);
    with img[i-2] do begin
      Parent:= Panel1;
      Width:= 100;
      Height:= 150;
      Top:= 10;
      Left:= (i-2)*100;
    end;
  end;
end;

img type is array of TImage, control is a tab. I want to timages to show like an android gallery. But this gives me an error Access Violation.

Answer 1

This looks like the classic error in creating an object. Instead of

obj.Create;

you must write:

obj := TSomeClass.Create;

In your case you need to first of all allocate the array:

SetLength(img, Dest.Count-2);

And then in the loop you write:

img[i-2] := TImage.Create(Form1);

to instantiate the images.