delphi 枚举类型

Posted 2023-05-09

type
todd=(1,2);
end;
枚举这样子写对吗？

基本上是对的。不过，不用加end
要定义并用枚举类型，分为两步
1 定义
eg:
type color=(blue,green,black,white,maroon);
析：定义了一个名为color的枚举类型，其可能的值为
blue,green,black,white,maroon.它可放在实现部分（implementation）前。
2 声明变量赋值
由于在编译的过程 中，编译器会按照这些枚举常量的顺序依次赋值为0,1,2,3,4.所以，在赋值中可以用下面的语句。
var
mycolor:color;

mycolor:=0; 此处，也可以写成 mycolor:=blue;
可以用ord(),这一函数来验证一下，
eg
mycolor:=blue;
showmessage(inttostr(ord(c)));

朋友，不知道你看懂了没有。 参考技术A 对啊！
定义变量就是
var
any:todd;

如何从 Delphi 程序或编译器生成的调试信息中提取局部变量信息（地址和类型）？

【中文标题】如何从 Delphi 程序或编译器生成的调试信息中提取局部变量信息（地址和类型）？

【英文标题】：How do you extract local variable information (address and type) from a Delphi program or the compiler-generated debug info?

【发布时间】：2015-07-11 12:20:07

【问题描述】：

我的目标是：

在 Delphi 编译的 32 位或 64 位 Windows 程序中给定一个暂停线程，遍历堆栈（可行） 给定堆栈条目，枚举每个方法中的局部变量及其值。也就是说，至少找到它们的地址和类型（integer32/64/signed/unsigned、string、float、record、class...），它们的组合可以用来找到它们的值。

第一个很好，这是第二个问题。概括地说，如何在 Delphi 中枚举给定堆栈条目的局部变量？

---

在低级别，这是我一直在调查的：

RTTI： 并未列出此类有关方法的信息。这不是我实际上认为是一个现实的选择，但无论如何都在这里列出。

调试信息：加载为调试构建生成的调试信息。

地图文件：即使是详细的地图文件（文本格式文件！打开并查看）也不包含局部变量信息。它基本上是地址和源文件行号的列表。非常适合地址到文件和行的相关性，例如排水沟中的蓝点；不太适合获取更多详细信息 远程调试信息（RSM 文件）-no known information 的内容或格式。

TD32/TDS 文件

：我目前的研究方向。它们包含许多其他信息中的全局和局部符号。

我在这里遇到的问题是：

没有关于 TD32 文件格式的文档（我可以找到。） 我对它们的大部分了解来自使用它们的 Jedi JCL 代码 (JclTD32.pas)，我不确定如何使用该代码，或者那里的结构是否足够广泛以显示本地变量。我很确定它将处理全局符号，但我对本地符号非常不确定。定义了各种各样的常量并且没有格式的文档，要阅读它们的含义，我只能猜测。但是，这些常量及其名称必须来自某个地方。 Source I can find using TDS info 不加载或处理本地符号。

如果这是正确的方法，那么这个问题就变成了“是否有 TDS/TD32 文件格式的文档，是否有任何加载局部变量的代码示例？”

代码示例不是必需的，但可能非常有用，即使它非常少。

【问题讨论】：

我实际上并没有使用 Jedi JCL 单元来访问 TD32 信息 - 我有我自己的专有库，但看起来你需要的所有基本管道都在 JclTD32 中。帕斯但是，我找不到用于访问变量信息的演示代码，但是那里的示例（在 ..\jcl\examples\windows\debug\sourceloc 中）显示了如何从 TD32 数据中获取行号信息，所以你应该能够在此基础上得到你需要的东西。请在这里报告您的发现:)

@500-InternalServerError 谢谢。行号信息很简单（甚至在地图文件中）——但您能否提供有关您在 JCL 代码中看到的与本地符号特别相关的任何信息？另外，出于好奇，您的 TD32 专有库是什么，它是发布/公开使用还是仅在内部使用？

它下面的每个过程/函数/方法符号依次包含一个本地符号列表。大多数定义似乎都存在于绝地部队中，但有些定义已被注释掉。我的建议是创建小型测试应用程序并查看符号枚举返回的内容。我拥有的代码是专有的，不适合我发布。无论如何，它都没有涵盖局部变量的主题。但它所基于的信息是半公开的，所以如果你遇到特定的问题，我可能会提供帮助。

tds2pdb (code.google.com/p/map2dbg) 似乎有一个用于 tds 文件的解析器。虽然是 C# 代码。

曾经有一个非正式的文档，是的，但后来 Borland（当时）决定发布一个 dll 来代替访问调试信息，这样他们就可以更改内部格式而不必更新文档。不幸的是，我现在既找不到原始文档也找不到 dll。我建议您联系 Embarcadero 技术支持并询问相关信息。

【参考方案1】：

检查是否有任何调试符号不是二进制的。 也可以使用 GDB（在 Windows 上的一个端口 它）。如果您找到 .dbg 或 .dSYM，那就太好了 文件。它们包含源代码，例如。

gdb> list foo
56 void foo()
57 
58  bar();
59  sighandler_t fnc = signal(SIGHUP, SIG_IGN);
60  raise(SIGHUP);
61  signal(SIGHUP, fnc);
62  baz(fnc);
63 

如果您没有任何调试文件，您可以尝试获取 MinGW 或 Cygwin，并使用 nm(1) (man page)。它将从二进制文件中读取符号名称。它们可能包含一些类型，例如 C++ 类型：

int abc::def::Ghi::jkl(const std::string, int, const void*)

不要忘记添加--demangle 选项，否则你会得到类似的东西：

__ZN11MRasterFont21getRasterForCharacterEh

代替：

MRasterFont::getRasterForCharacter(unsigned char)

【讨论】：

Jakub，感谢您的回答。不幸的是，我可能需要阅读特定的调试格式 - TDS。 Delphi 应用程序未在 Windows 上使用与 GDB 兼容的调试信息进行编译。我也不确定 nm 将如何提供帮助，因为它将依赖于特定的调试文件格式，而这种格式可能不是 Delphi 生成的。还是我误解了你的答案——例如 GDB 可以读取 Delphi 的符号吗？

@DavidM，您的评论非常重要。尝试在 Windows 上找到 GNU Binutils 或 GNU 调试器的端口（我只知道 Binutils 端口）。 GDB 有一个 BFD 库。它也用于 Binutils。它允许读取多种文件格式并通过它们的幻数识别它们。如果一切都失败了，请使用名为strings 的工具。它将从任何二进制文件中提取字符串。见man page。这将打印可能但不一定有用的字符串

【参考方案2】：

查看http://download.xskernel.org/docs/file%20formats/omf/borland.txt 开放架构手册。它很旧，但也许您会找到有关文件格式的一些相关信息。

【讨论】：

能否请您添加一些上下文，该链接将来可能会损坏。

该链接包含来自 borland 的官方文档，关于 Borland 编译器使用的 OMF 文件格式和 Borland 使用的其他二进制文件格式。几年前，我查看了 TDS 文件格式，似乎有些部分与记录的文件格式兼容。在尝试从 TDS 文件中收集有关局部变量的任何信息时，应使用或参考链接的文档。如果链接断开，我的回答将毫无用处，所需的信息也会丢失。链接的“开放架构手册”是旧 Turbo Pascal 和 C 版本的一部分。