访问没有前缀的公共对象

Question

我有一个我不久前写的应用程序。它是一个数据库应用程序，有很多Ttable和TSQL组件，放在主窗体上（所以它非常混乱）。我正在更新应用程序，我想使用数据模块。如果我这样做，我将不得不将我的所有代码从Table.fieldbyName更改为Datmodule.FieldByName。在很多不同的调用中，我将不得不用很多不同的组件做这种类型的事情（Table.Edit，Table.Post等）我的问题是......有没有办法告诉编译器，如果你在当前表单中找不到对象，在TDatamodule中查找它？我意识到我可以使用'With DataModule do'语法，但我希望还有别的东西。我可以在这里使用NameSpace吗？

Answer 1

我认为解决这个问题的正确方法是使用搜索/替换工具重命名您的tTable引用，例如GExperts Grep Searching。示例：如果您有一个名为“tSales”的表，现在位于名为“Dm”的数据模块中，您可以为当前项目中的所有文件执行Grep搜索“tSales”，然后替换为“Dm.tSales” ”。结果是代码在未来更易读和可维护。