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

Ala*_*ark 3 regex delphi

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

ISomeInterface(CurrentObj)
Run Code Online (Sandbox Code Playgroud)

应该是

CurrentObj as ISomeInterface
Run Code Online (Sandbox Code Playgroud)

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

Joe*_*ite 6

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

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

\w+\s*\(
Run Code Online (Sandbox Code Playgroud)

它将搜索一个或多个单词字符,后跟零个或多个空格,然后是一个左括号.这符合:

TObject (Foo)
Run Code Online (Sandbox Code Playgroud)

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

TObject
  (Foo)
Run Code Online (Sandbox Code Playgroud)

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

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

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

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

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

\b[TIE][A-Z]\w+\s*\(
Run Code Online (Sandbox Code Playgroud)

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

但是,如果您有任何类型名称符合通常的命名约定(例如TfcTreeView,在T之后有一个小写字母),或者您依赖于Delphi的不区分大小写(例如,如果您有任何机会可能有代码喜欢tobject(Foo)甚至Tobject(Foo)),然后变得更难.如果是这种情况,请发布一些细节,我也许可以提出建议.