浏览代码

Zone Project Gather: Bug

MaiXinRong 8 年之前
父节点
当前提交
3d9812461e
共有 1 个文件被更改,包括 2 次插入3 次删除
  1. 2 3
      ProjGather/ProjGather.pas

+ 2 - 3
ProjGather/ProjGather.pas

@@ -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;