7

我正在处理一些具有非常长的方法（10k 行！）的代码以及对 try-finally 和 try-except 块的一些奇怪使用。后者中的一些本身就很长，并且并不总是在方法开始时尝试。

显然我正在尝试重构代码，但与此同时，如果我可以跳到块的开头并查看那里发生了什么，那么能够修复几个常见的问题会容易得多。当它在 20 多页之外找到它时，即使使用 CNPack 彩虹（“代码结构突出显示”）也是乏味的。

我正在使用 D2010 并安装了 GExperts（带有 DelForExp）、CNPack 和 DDevExtensions，但我找不到任何可以让我从 try 跳转到 finally 或返回的东西。我错过了什么吗？是否有另一个我可以使用的插件可以让我得到这个？

4

2 回答 2

11

GExperts 在 Editor Experts 中有它：“移动到匹配分隔符”，默认使用键盘快捷键 Ctrl+Alt+Right。如果您重复调用它，它会从try匹配finally或except，到end，然后返回到try，依此类推。

于 2013-06-25T03:39:52.873 回答
0

如果您要重构代码，我建议您将每个 Try except/finally End 代码块命名，并将其移动到 main 方法中的单独函数/过程中。

第二个建议，从最里面的 try except/finally 代码块开始。

procedure class1.method1 ;
var
   anyVariables : ... ;
begin
 ....
 try 
 ....
 finally
 ... 
 end ;
 ....
end ;

.

procedure class1.method1 ;
var
   anyVariables : ... ;
   procedure first_try_finally_block ;
   begin 
      try 
      ....
      finally
      ... 
      end ;
   end ;
begin
 ....
 first_try_finally_block
 ....
end ;

我希望这将帮助您解决您的问题。

于 2013-06-25T06:52:55.650 回答