[Karajal]

При загрузки файлов с именами [700..800], в этих пределах, выдается сообщение "Access violation at address 0134C8F9. Write of address 00000023."
Если название файла меняю до или после [700..800] все проходит нормально.

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;

В строку первые два файла грузятся нормально, за ними вниз тоже нормально. Что делать?

[poli-smen]

Сообщение от Karajal

При загрузки файлов с именами [700..800], в этих пределах, выдается сообщение "Access violation at address 0134C8F9. Write of address 00000023."

Как объявлена переменная Im?
Каким образом задаётся размер этого массива?

[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;" на размер массива не влияет

[M.A.D.M.A.N.]

У тебя массив от 1 до 2, ты же обращаешься к индексам превосходящим допустимый диапазон.

[Karajal]

Я ставил 1 к 20. результат не изменился. Но если меняю название файла тогда все работает. В том и вопрос, другие числа работают. В цикле начальное и конечное значения это имена файлов.

[M.A.D.M.A.N.]

Поставь от 0 до 1000 и посмотри.

[Karajal]

Поставил от 0 до 1000, все заработало. Но понимание происходящего не пришло.

[poli-smen]

Сообщение от Karajal

Поставил от 0 до 1000, все заработало. Но понимание происходящего не пришло.

Всё просто. У тебя массив объявлен как "Im: Array[1..2] of TImage;", значит имеет всего 2 элемента с индексами 1 и 2 и обращаться можно только к этим двум существующим элементам так "Im[1]:=..." и так "Im[2]:=...". У тебя же в цикле переменная i принимает значения от 718 до 722 и следовательно идёт обращение к несуществующим в этом массиве элементам "Im[718]:=...", "Im[722]:=..." и т.п.

[Karajal]

Сообщение от poli-smen

Всё просто. У тебя массив объявлен как "Im: Array[1..2] of TImage;", значит имеет всего 2 элемента с индексами 1 и 2 и обращаться можно только к этим двум существующим элементам так "Im[1]:=..." и так "Im[2]:=...". У тебя же в цикле переменная i принимает значения от 718 до 722 и следовательно идёт обращение к несуществующим в этом массиве элементам "Im[718]:=...", "Im[722]:=..." и т.п.

В принципе в книге так и написано, но если я пишу " Im[178..182]" или "Im[1437..1441]" , то все загружается. Когда все заработало я увеличиваю или уменьшаю эти значения, все нормально, но когда перехожу на 700, все радости заканчиваются. Происходит то что я писал в первом сообщении.

[M.A.D.M.A.N.]

Просто попадал в участок памяти с флагами RW, поэтому ошибки небыло.

[Karajal]

Сообщение от M.A.D.M.A.N.

Просто попадал в участок памяти с флагами RW, поэтому ошибки небыло.

Спасибо. Пойду учебники читать.