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

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

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

任何人都可以建议以所有这些形式设置此属性的快速方法吗？表单是各种不同类的子类,我真的不想做一些覆盖SCALED属性的中间TForm后代 - 部分是因为我尝试(简要地)这样做并发现将SCALED属性设置为false 继承的create 之后对表单没有任何区别,并在继承的create 之前设置它会导致异常.:-)

有人有什么建议吗？如果我能帮助它,我真的想避免一个接一个地打开所有这些形式,只因为我一定会错过一个!

我建议你改变所有形式,从共同的祖先下降.然后在将来你可以改变基类,它将在任何地方修复它.

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

如果您的所有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文件.所有这些都很容易编写脚本.