[Karajal]

Вот полная версия

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, Gr32_Image, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Panel1: TPanel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Im: Array[1..2] of TImage;
Img1: Timage32;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
FreeAndNil(Img1);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
i, d, x, y: integer;
begin
Img1:= Timage32.Create(self);
Img1.Parent:= Form1;
Img1.Align:= AlClient;
x:= 0;
y:= 0;

D:=346; // папка откуда файлы

Repeat
for i := 718 to 722 do
begin //Создает динамический массив карты
Im[i] := TImage.Create(self);
Im[i].Parent := Img1;
Im[i].Left:= x;
Im[i].Top := y;
Im[i].Width := 256;
Im[i].Height:= 256;
x:= x+256;

Im[i].Picture.LoadFromFile ('O:\SASPlanet\cache\Gen\z10\'+ IntToStr(d)+ '\' + (IntToStr(i) + '.jpg'))

end;
X:= 0;
Y:= y+256;
d:= d+1;
Until d= 350; // Конечная папка
end;

end

.

Как задается размер массива? Я только начинаю, не судите строго.
Я понимаю так, количество картинок получаю в цикле. Задаю первый и последний файл. А объявленный массив "Im: Array[1..2] of TImage;" на размер массива не влияет