在Delphi项目中更改多个表单属性的快速方法？

Question

我认为GExperts中有一些东西可以做到这一点，但如果有的话，我看不到它。

我必须在包含大约100种不同表单的项目中的每个表单中更改SCALED属性（从默认值TRUE变为FALSE）。因为SCALED的默认值为TRUE，所以它实际上并不显示为.DFM文件中的一行（当作为文本查看时），因此没有任何东西可以“获得”GREP（等）。

有人能建议以所有这些形式快速设置此属性吗？表单是各种不同类的子类，我真的不想做一些覆盖SCALED属性的中间TForm后代 - 部分是因为我尝试（简要地）这样做并发现将SCALED属性设置为false 在之后，继承的创建对表单没有任何影响，并且在之前将设置为继承的创建导致异常。 ： - ）

有人有什么建议吗？如果我能帮助你，我真的想避免一个接一个地打开所有这些表格，只因为我一定会错过一个！

Answer 1

我建议您更改所有表单以从共同的祖先下降。然后在将来你可以改变基类，它将在任何地方修复它。

一般来说，我更喜欢总是使用自定义后代类而不是我将经常出于特定原因使用的库存。

Answer 2

如果所有DFM文件都不是二进制文件，而是文本（这是一个好主意，除非你需要与Delphi 4或更早版本兼容），你当然可以使用grep / sed / awk。 DFM的格式不固定，而不是

  OldCreateOrder = False
  Scaled = False

它也可以包含

  OldCreateOrder = False Scaled = False

所以你可以grep另一个只有TForm的属性，它在你的所有表单中设置为存储在DFM中的值（OldCreateOrder将是候选者），并用另一行包含两行替换这些行属性。

下次在IDE中保存该表单时，将更正格式。

修改

如果您的表单是二进制文件，则使用Delphi bin目录中的convert.exe工具（使用完整路径，因为Windows中有另一个convert.exe）将DFM转换为文本，然后添加缺少的属性，然后（ （可选）将DFM转换回二进制。如果您对这种奇怪的格式感到不满 - 将DFM从文本转换为二进制并转换回文本，这将为您提供格式正确的文本DFM文件。所有这些都很容易编写脚本。

Answer 3

是的，GExpert包含一个“设置组件属性”专家。它有一个“模拟”模式，可以看到它会做什么。在编译应用程序之前，此工具可用于停用数据集或数据库连接。