我怎么才能找到所有的空试...除了使用GExperts grep的块？

Question

在新版本的GExperts中，grep工具现在支持更多的“专家”表达式。

我还没有找到一种方法来定位空试...除了使用正则表达式的Delphi源码中的块之外，我如何使用GExperts grep工具做到这一点？

Answer 1

我怀疑GExperts正则表达式功能是否允许您在行分隔符之外进行搜索。

如果你不介意使用像TPerlRegEx这样的组件，下面的代码会让你开始自己的搜索。

var
  emptyExceptBlock: TPerlRegEx;
  Results: TStringList;

emptyExceptBlock := TPerlRegEx.Create(nil);
emptyExceptBlock.RegEx := except\s+((//.*|/\*.*\*/|\(\*.*\*\))\s+)*end;
emptyExceptBlock.Options := [preExtended];
emptyExceptBlock.Subject := LoadFromFile('YourFile.pas');
Results := TStringList.Create;
if emptyExceptBlock.Match then begin
    repeat
        Results.Add(emptyExceptBlock.MatchedExpression);
    until not emptyExceptBlock.MatchAgain;
end;

Answer 2

有一个叫做插入自动待办事项的工具(它不是GExperts的一部分，我想我是从CodeCentral得到的)，它可以自动将待办事项插入到空白的begin/end块中。也许这就是你想要的？