Delphi 列出单元中的所有常量

我需要从应用程序中转换大量常量。除了解析.pas文件之外，是否可以获取单元中声明的所有常量及其值？

有一个开放的工具API，可以以面向对象的方式使用IDE。 但我认为不可能列出文件的常量

---

我认为最简单的方法是使用grep或其他类似的正则表达式程序，可以从以下文件中收集字符串常量：^\s*\w++\s*=\s*'.+？'\s*[；\\{\+]如果不分析单元并提取常量，这似乎是不可能的。在编译过程中，常量被值替换，因此在运行时无法从中获取值

---

乐：也许有人可以对此进行深入解释。

如何将所有常量更改为ResourceString，重新构建，然后使用资源编辑器（如XN resource editor）转储字符串资源？

---

这就是我的方法，如果真的有那么多的话。

如果你谈论字符串常量，那么本地化工具可能会有所帮助。其中大多数是字符串常量…我需要更改它们的格式，我正试图通过一个例程或其他机制来实现。但首先，我需要一个列表…你为什么不直接解析文件？不是吗他是我将要做的。我试着找出是否有其他方法来做这件事。