Форум программистов [Powered by Invision Power Board]

Код


  PFreePlace = ^TFreePlace;

  TNeighbor = record
    a: array of PFreePlace;
  end;

  TFreePlace = record
    x, y, width, height: integer;
    checked, deleted: boolean;
    neighbor: TNeighbor;
  end;

  TFree = array of TFreePlace;

  TData = record
    free: TFree;   //карта свободного места
  end;

  TCalculate = class(TThread)
    shource: TData; // исходная ветвь и конечные данные
    procedure Execute; override;
  end;

procedure TCalculate.Execute;

procedure Branch(const data: TData);

procedure ModifyFreePlaces(var free: TFreePlace);

procedure AddFreePlace(const x, y, width, height: integer);
begin
...
    if ...  SetLength(free.neighbor.a[l].neighbor.a, Length(free.neighbor.a[l].neighbor.a)+1);
...
end;

begin
...
  if ...  AddFreePlace(free.x, place.y + place.photo.height, free.width, free.y+free.height-(place.y + place.photo.height));

  for ... if ... ModifyFreePlaces(free.neighbor.a[k]^);
...
end;

begin
...
  for ... if  ...
  begin
    ...
    ModifyFreePlaces(temp.free[j]);
    ...
    Branch(temp);
  end;
...
end;

begin
  Branch(shource);
end;

Код


TFree = array of TFreePlace;

Код


TNeighbor = record
    a: array of PFreePlace;
  end;

Цитата(evorios @ 12.10.2012, 18:13

)

Поможет ли мне переход от record к class?

Код


SetLength(free.neighbor.a[l].neighbor.a, Length(free.neighbor.a[l].neighbor.a)+1);

Цитата(evorios @ 12.10.2012, 18:13

)

SetLength(___.a, Length(___.a)+1);

Код


  SetLength(temp.free[High(temp.free)].neighbor, Length(free.neighbor));
  m := 0;
  for l:= Low(free.neighbor) to High(free.neighbor) do
    if not free.neighbor[l].deleted and not ( //если сосед не удален и как-то пересекается
     (free.neighbor[l].x > temp.free[High(temp.free)].x + temp.free[High(temp.free)].width) or (free.neighbor[l].x + free.neighbor[l].width < temp.free[High(temp.free)].x) or
     (free.neighbor[l].y > temp.free[High(temp.free)].y + temp.free[High(temp.free)].height) or (free.neighbor[l].y + free.neighbor[l].height < temp.free[High(temp.free)].y)
     ) then begin
     //добавить условия для удаления той или иной области в случае полного перекрытия
      temp.free[High(temp.free)].neighbor[m] := free.neighbor[l];
      SetLength(free.neighbor[l].neighbor, Length(free.neighbor[l].neighbor)+1);
      free.neighbor[l].neighbor[High(free.neighbor[l].neighbor)] := PFreePlace(@temp.free[High(temp.free)]);
      inc(m);
    end;
  SetLength(temp.free[High(temp.free)].neighbor, m);

  SetLength(free.neighbor, Length(free.neighbor)+1);
  free.neighbor[High(free.neighbor)] := PFreePlace(@temp.free[High(temp.free)]);