重构 Delphi 6 事件处理程序属性的工具/实用程序？

Question

我有一个在我的应用程序代码库（即多个应用程序）中广泛使用的组件。我想更改常用的事件处理程序属性之一。我需要一个工具/实用程序来遍历 Delphi 6 表单源文件 (DFM + PAS)，并对表单上组件实例的当前定义的事件处理程序进行搜索和替换。

例如。假设我在组件上有一个事件处理程序属性，当前定义为：

property eventHandler1: TOldEventHandlerProc read FOnEvent write FOnEvent;

其中 TOldEventHandlerProc 定义为：

TOldEventHandlerProc = procedure(oneParm: string) of object;

我想将 TOldEventHandlerProc 更改为：

TOldEventHandlerProc  = procedure(oneParm: string; twoParm: integer) of object;

我希望实用程序检查 Form 的 DFM/PAS 文件对的内容并查找 FOnEvent 的所有实例定义并根据 TOldEventHandlerProc 的新定义将旧参数列表替换为新参数列表。例如，给定一个名为 MyForm1 的表单，其中包含一个名为 MyComp1 的组件实例，您将获得以下 IDE 为事件处理程序生成的声明：

TMyForm1 = class(TForm)
    // IDE created event handler stubs.
    procedure MyComp1OnEvent(oneParm: string);

事件处理程序的主体声明为：

procedure TMyForm1.MYCom1OnEvent(oneParm: string);

该实用程序需要查找 OnEvent( 的每个实例) ) 处理程序并替换事件处理程序的标头声明和事件处理程序的主体声明，并交换参数列表，结果为：

TMyForm1 = class(TForm)
    // IDE created event handler stubs.
    procedure MyComp1OnEvent(oneParm: string; twoParm: integer);

事件处理程序的主体声明为：

procedure TMyForm1.MYCom1OnEvent(oneParm: string; twoParm: integer);

如果我找不到这样的工具，我'我自己会写一篇又快又脏的文章，但我我想我会问一下是否可以节省一些时间。有人知道这样的重构工具吗？

Answer 1

最近的 Delphi 版本提供了重构功能。

您可以使用其中之一轻松重构代码，并最终修复每个 DFM 以确保 Delphi 6 兼容性。