динамическое создания Timage

[Joker_vad]

procedure TForm2.BitBtn1Click(Sender: TObject);
var Img: Array of TImage;
 Memo:array of TMemo;
 i: Integer;
begin
  for i := 0 to Form1.ListBox1.SelCount-1 do
    begin
      if (LowerCase(ExtractFileExt(mas[i]))= '.bmp') or
        (LowerCase(ExtractFileExt(mas[i]))= '.jpg')
        then begin
        Img[i] := TImage.Create(Self);
        Img[i].Parent := Self;

        Img[i].Width := 40;
        Img[i].Height := 40;
        Img[i].Left := i * 50+20;
        Img[i].Top := 20;
        Img[i].Proportional:=true;
        Img[i].Picture.LoadFromFile(mas[i]);
        end
    else
      begin
        memo[i] :=TMemo.Create(Form2);
        memo[i].Parent := Form2;
        memo[i].Width := 40;
        memo[i].Height := 40;
        memo[i].Left := i * 50+20;
        memo[i].Top := 20;
        memo[i].Lines.LoadFromFile(mas[i]);
      end;
    end;
end;

Img[i] := TImage.Create(Self);
вот на это ругается access violation at address что делать хелп плиз

[Аватар]

А под динамические массивы память дядя выделять будет? SetLength вам в помощь

ADD

В вашем случае у них и размерность разная будет и одним индексом i точно не обойтись

[Stilet]

var Img: TObjectList;
...
procedure TForm2.BitBtn1Click(Sender: TObject);

 Memo:array of TMemo;
 i: Integer; im:TImage;
begin 
  if Img<>nil then Img.Clear else img:=TObjectList.Create;
  for i := 0 to Form1.ListBox1.SelCount-1 do
    begin
      if (LowerCase(ExtractFileExt(mas[i]))= '.bmp') or
        (LowerCase(ExtractFileExt(mas[i]))= '.jpg')
        then begin
        Im := TImage.Create(Self);
        with im do begin Img.add(im);
          Parent := Self;

          Width := 40;
          Height := 40;
          Left := i * 50+20;
          Top := 20;
          Proportional:=true;
          Picture.LoadFromFile(mas[i]);
        end;
      end
    else
      begin
        memo[i] :=TMemo.Create(Form2);
        memo[i].Parent := Form2;
        memo[i].Width := 40;
        memo[i].Height := 40;
        memo[i].Left := i * 50+20;
        memo[i].Top := 20;
        memo[i].Lines.LoadFromFile(mas[i]);
      end;
    end;
end;

Зависимость от uses contnrs;
Тут используется список объектов, что гораздо надежнее открытого массива.
Идея ясна?

[Joker_vad]

Ну вроде ясна всем спасибо