Question

我试图在应用程序中找到一些神秘的错误，并且相信原因可能是接口上的一些硬件。这样的演员表在Delphi中是不安全的，例如

ISomeInterface(CurrentObj)

应该是

CurrentObj as ISomeInterface

鉴于缺少编译器警告，我认为应该为强硬派投射，我的问题是如何在代码库中轻松找到这些演员？某种类型的正则表达式grep搜索也许？代码库很大，需要手动搜索它。

Answer 1

您没有说明您正在使用哪种正则表达式。我将假设PCRE（与Perl兼容的正则表达式），这意味着这些示例不适用于IDE的“查找”对话框中的goofball“正则表达式”选项。但是，它们可以与任何自尊的grep工具一起使用，也可以与Perl，Ruby，.NET和许多其他语言中的内置正则表达式一起使用。

你可以从这样的事情开始：

\w+\s*\(

将搜索一个或多个单词字符，后跟零个或多个空格，后跟一个左括号。这将匹配：

TObject (Foo)

但是根据您的正则表达式库，以及您使用的选项以及如何将输入传递给它，如果在打开的paren之前有换行符，则可能匹配或不匹配：

TObject
  (Foo)

如果两者之间有评论，肯定是行不通的，就像这个病态案例一样：

X := ISomeInterface // come back and look at this cast, it's dangerous
  (CurrentObj);

但对于大多数格式良好的代码，它都足够好了。

现在你的问题是它给你提供的不仅仅是类型转换 - 它还为你提供代码中的每个方法调用。因此需要进行一些改进。

如果您的代码遵循典型的Delphi编码风格，那么这可能会更好：

\b[TIE][A-Z]\w+\s*\(

并确保您执行区分大小写的匹配。这将匹配任何有字边界的地方，然后是大写字母T（大多数类和类型的传统前缀）或大写字母I（接口的前缀）或大写字母E（Exception后代的前缀），后跟另一个资本字母，然后是一些大写或小写字母或数字或下划线，后跟可选空格和开放式字符。这很有可能是你需要的。

但是，如果您有任何不的类型名称遵循通常的命名约定（例如，在T之后具有小写字母的TfcTreeView，或者您依赖于Delphi不区分大小写（例如，如果你有可能拥有像tobject(Foo)甚至Tobject(Foo)这样的代码），那么它会变得更难。如果是这种情况，请发布一些细节，我也许可以提出建议。

Answer 2

如果您知道界面的名称，则可以使用以下内容 “在文件中查找”对话框中的正则表达式。

ITest\([^)]+\)

其中ITest是您的界面名称

如何在Delphi（Win32）中找到硬错误的接口转换

2 个答案: