|
@@ -592,8 +592,7 @@ begin
|
|
|
FBeginPhaseIndex := ABeginPhaseIndex;
|
|
|
FEndPhaseIndex := AEndPhaseIndex;
|
|
|
|
|
|
- FTree := TProjGatherTree.Create(FProjs.Count, 0);
|
|
|
- FTree.NewNodeID := 101;
|
|
|
+ BeforeGather;
|
|
|
try
|
|
|
for i := 0 to FProjs.Count - 1 do
|
|
|
GatherProj(TGatherProjInfo(FProjs.Items[i]), i);
|
|
@@ -601,7 +600,7 @@ begin
|
|
|
if Assigned(FWriter) then
|
|
|
FWriter(Self);
|
|
|
finally
|
|
|
- FTree.Free;
|
|
|
+ AfterGather;
|
|
|
end;
|
|
|
end;
|
|
|
|