Ошибка при динамическом стирание объектов

[Alexandr17]

Все равно системная ошибка.

[Alexandr17]

Все равно системная ошибка

[eoln]

У меня нормально отрабатывает реакцию на удаление. Проходи отладчиком и смотри на какой строке (хотя и так ясно, что в HODPers[i, i1].Free) и при каких параметрах ошибка возникает - есть ли там объект или нет.
Ставь точку останова на HODPers[i, i1].Free;
И смотри что у тебя в переменных
Примерно вот так должно быть:
009.jpg

Кстати, _ClickHODPers удаляет всё. Так и надо? Или одного надо оставить?

[Alexandr17]

надо удалять все клетки ходя

[Alexandr17]

исправил практически. Ошибка заключалась в зацикливании модуля pngimage
я сделал так

procedure TForm1._ClickPersonages(Sender: TObject);
var png:TPNGObject;
begin
.....
  if Personages.Top+32 <> MAPS.Height then begin
    HODPers[Personages.Left div 32, (Personages.Top+32) div 32]:=TImage.Create(Scrollbox1);
    HODPers[Personages.Left div 32, (Personages.Top+32) div 32].Parent:=Scrollbox1;
    HODPers[Personages.Left div 32, (Personages.Top+32) div 32].Left:=Personages.Left;
    HODPers[Personages.Left div 32, (Personages.Top+32) div 32].Top:=Personages.Top+32;
    HODPers[Personages.Left div 32, (Personages.Top+32) div 32].AutoSize:=True;
    HODPers[Personages.Left div 32, (Personages.Top+32) div 32].Picture.Graphic:=png;
    HODPers[Personages.Left div 32, (Personages.Top+32) div 32].OnClick:=_ClickHODPers;
  end;

  if (Personages.Left <> 0)and(Personages.Top <> 0) then begin
    HODPers[(Personages.Left-32) div 32, (Personages.Top-32) div 32]:=TImage.Create(Scrollbox1);
    HODPers[(Personages.Left-32) div 32, (Personages.Top-32) div 32].Parent:=Scrollbox1;
    HODPers[(Personages.Left-32) div 32, (Personages.Top-32) div 32].Left:=Personages.Left-32;
    HODPers[(Personages.Left-32) div 32, (Personages.Top-32) div 32].Top:=Personages.Top-32;
    HODPers[(Personages.Left-32) div 32, (Personages.Top-32) div 32].AutoSize:=True;
    HODPers[(Personages.Left-32) div 32, (Personages.Top-32) div 32].Picture.Graphic:=png;
    HODPers[(Personages.Left-32) div 32, (Personages.Top-32) div 32].OnClick:=_ClickHODPers;
  end;

  if (Personages.Left <> 0)and(Personages.Top+32 <> MAPS.Height) then begin
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32]:=TImage.Create(Scrollbox1);
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].Parent:=Scrollbox1;
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].Left:=Personages.Left-32;
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].Top:=Personages.Top+32;
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].AutoSize:=True;
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].Picture.Graphic:=png;
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].OnClick:=_ClickHODPers;
  end;

  if (Personages.Left+32 <> MAPS.Width)and(Personages.Top <> 0) then begin
    HODPers[(Personages.Left+32) div 32, (Personages.Top-32) div 32]:=TImage.Create(Scrollbox1);
    HODPers[(Personages.Left+32) div 32, (Personages.Top-32) div 32].Parent:=Scrollbox1;
    HODPers[(Personages.Left+32) div 32, (Personages.Top-32) div 32].Left:=Personages.Left+32;
    HODPers[(Personages.Left+32) div 32, (Personages.Top-32) div 32].Top:=Personages.Top-32;
    HODPers[(Personages.Left+32) div 32, (Personages.Top-32) div 32].AutoSize:=True;
    HODPers[(Personages.Left+32) div 32, (Personages.Top-32) div 32].Picture.Graphic:=png;
    HODPers[(Personages.Left+32) div 32, (Personages.Top-32) div 32].OnClick:=_ClickHODPers;
  end;

  if (Personages.Left+32 <> MAPS.Width)and(Personages.Top+32 <> MAPS.Height) then begin
    HODPers[(Personages.Left+32) div 32, (Personages.Top+32) div 32]:=TImage.Create(Scrollbox1);
    HODPers[(Personages.Left+32) div 32, (Personages.Top+32) div 32].Parent:=Scrollbox1;
    HODPers[(Personages.Left+32) div 32, (Personages.Top+32) div 32].Left:=Personages.Left+32;
    HODPers[(Personages.Left+32) div 32, (Personages.Top+32) div 32].Top:=Personages.Top+32;
    HODPers[(Personages.Left+32) div 32, (Personages.Top+32) div 32].AutoSize:=True;
    HODPers[(Personages.Left+32) div 32, (Personages.Top+32) div 32].Picture.Graphic:=png;
    HODPers[(Personages.Left+32) div 32, (Personages.Top+32) div 32].OnClick:=_ClickHODPers;
  end;
  png.Free;
end;

теперь только при клике на этот имадж происходит ошибка

iif (Personages.Left <> 0)and(Personages.Top+32 <> MAPS.Height) then begin
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32]:=TImage.Create(Scrollbox1);
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].Parent:=Scrollbox1;
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].Left:=Personages.Left-32;
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].Top:=Personages.Top+32;
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].AutoSize:=True;
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].Picture.Graphic:=png;
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].OnClick:=_ClickHODPers;
  end;

[eoln]

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

теперь только при клике на этот имадж происходит ошибка

iif (Personages.Left <> 0)and(Personages.Top+32 <> MAPS.Height) then begin
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32]:=TImage.Create(Scrollbox1);
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].Parent:=Scrollbox1;
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].Left:=Personages.Left-32;
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].Top:=Personages.Top+32;
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].AutoSize:=True;
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].Picture.Graphic:=png;
    HODPers[(Personages.Left-32) div 32, (Personages.Top+32) div 32].OnClick:=_ClickHODPers;
  end;

Это ошибка? Могу только посоветовать проверить зацикливание других модулей
Отладчик в помощь

[Alexandr17]

да попрежнему зацикливание у pngimage

[northener]

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

procedure TForm1._ClickHODPers(Sender: TObject);
VAR I, I1:INTEGER;
begin
  Xpers:=(Sender AS TIMAGE).Left;
  Ypers:=(Sender AS TIMAGE).Top;
  for i := 0 to length(HODPers)-1 do for i1 := 0 to length(HODPers[0])-1 do begin
    if HODPers[i, i1] <> nil then
      HODPers[i, i1].Free;
  end;
end;

но в событии procedure TForm1._ClickHODPers(Sender: TObject); возникает системная ошибка

Ну и правильно что возникает. Нельзя удалять элементы массива/списка и т.д. и т.п. в прямом цикле for..to. Можно только в обратном
цикле for..downto.

<offtop>
P.S. Уж сколько раз твердили миру что ... А шары всё падают и падают.
</offtop>

[eoln]

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

Нельзя удалять элементы массива/списка и т.д. и т.п. в прямом цикле for..to. Можно только в обратном
цикле for..downto.

Дык указатели ведь. Удаляется не массив, а то что там хранится

[Slym]

Так красивее...

procedure TForm1._ClickPersonages(Sender: TObject);
var dx,dy:integer;
Image:TImage;
begin
  dx:=0;
  dy:=0;
  if Personages.Left <> 0 then dx:=-32;
  if Personages.Left+32 <> MAPS.Width then dx:=+32;
  if Personages.Top <> 0 then dy:=-32;
  if Personages.Top+32 <> MAPS.Height then dy:=+32;
  Image:=TImage.Create(Scrollbox1);
  HODPers[(Personages.Left+dx) div 32, (Personages.Top+dy) div 32]:=Image;
  Image.Parent:=Scrollbox1;
  Image.Left:=Personages.Left+dx;
  Image.Top:=Personages.Top+dy;
  Image.AutoSize:=True;
  Image.Picture.LoadFromFile(PathFileExe+'\HodPers1.png');
  Image.OnClick:=_ClickHODPers;
end;