删除全部调试代码

Units/BillsClipboard.pas

@@ -110,7 +110,6 @@ begin
   Clear;
   CopyData(ANode, ACount);
   SaveToStream;
-  SaveToXmlFile('E:\1.xml');
   SaveToClipboard(CF_BillsBlock);
 end;
 

Units/ExcelImport.pas

@@ -241,7 +241,6 @@ begin
     LoadNode(ASheet);
     Inc(FCurRow);
   end;
-  //FCacheTree.SaveTreeToFile('E:\Tree.txt');
 end;
 
 procedure TBillsExcelImport.WriteNode(ADataSet: TsdDataSet;
@@ -297,9 +296,6 @@ end;
 
 procedure TBillsEdtExcelImport.EndImport;
 begin
-  // For Test
-  // FCacheTree.SaveTreeToFile('E:\Tree.txt');
-
   if FWithLevelCode then
     CheckFixedIDNodes;
 

Units/ExcelImport_Bills.pas

@@ -150,9 +150,6 @@ end;
 
 procedure Tdei_CustomBills.EndImport;
 begin
-  // For Test
-  // FCacheTree.SaveTreeToFile('E:\Tree.txt');
-
   {if FWithLevelCode then
     CheckFixedIDNodes;}