При загрузки файлов с именами [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;
|
В строку первые два файла грузятся нормально, за ними вниз тоже нормально. Что делать?