如何自动化重构Delphi冗余代码？有哪些可用的相关库或资源？

你遇到的属于典型的复制-粘贴型代码克隆，逻辑结构完全一致，仅传入的变量/判断条件存在差异，自动化重构可以按以下路径实现：

• 代码克隆检测：首先通过语法树（AST）比对技术，识别项目中结构、逻辑高度相似的代码片段，标记其中可变的参数点位（比如你案例里的两个TPanel实例、触发分支的鼠标按键条件），区分固定逻辑和可变参数。
• 公共方法自动推导：基于识别出的固定逻辑和可变参数类型，自动生成公共方法的定义，把可变点位替换为方法入参，保持原有逻辑完全不变。
• 原代码批量替换：把所有原来的冗余代码片段，自动替换为新生成公共方法的调用，自动匹配对应位置的参数，对于你案例里这种对称传参的场景，高阶工具可自动识别映射关系生成正确的调用代码。

• Delphi IDE内置重构能力：Delphi 10.3及以上版本自带*提取方法（Extract Method）*重构功能，选中一段重复逻辑后，工具会自动识别需要传入的参数，生成对应公共方法，同时自动替换当前选中段为方法调用，你只需要再把另一段重复逻辑手动替换为对应传参的调用即可，效率远高于纯手动重构。
• Pascal Analyzer：第三方Delphi代码分析工具，内置代码克隆扫描能力，可全项目扫描重复代码片段，按相似度分级标记，输出所有重复段的位置，方便批量处理同类冗余。
• 语法树解析库：如果需要定制批量重构能力，可以使用ANTLR的Pascal语法解析器，或者支持Object Pascal的AST解析库，自行实现代码克隆检测、公共方法生成、批量替换的全流程，适合有大量同类冗余代码的大型项目。
• AI编码辅助插件：支持Object Pascal语法的AI编码插件，只需粘贴冗余代码，给出提取公共方法的要求，可直接输出重构后的方法定义和调用代码，无需自行梳理逻辑。

内容的提问来源于stack exchange，提问作者user1580348