delphi - 如何使用带有枚举类型的WriteLn？

我试图在一周中的几天内创建自定义数据类型，但是我无法编写它。编译器错误说明:

program hours;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TypeDay = (Sun,Mon,Tue,Wed,Thu,Fri,Sat);

var day: TypeDay;

begin
     for day := Sun to Sat do
     begin
         writeln(day);
     end;
end.

它在Windows上的Delphi 7中。

最佳答案

您无需为此编写汇编程序； TypInfo包括您需要执行的所有操作(获取与枚举值关联的字符串)。

这段代码:

program hours;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  TypInfo;

type
  TypeDay = (Sun,Mon,Tue,Wed,Thu,Fri,Sat);

var
  day: TypeDay;
  Str:String;

begin
     for day := Sun to Sat do begin
        Str := GetEnumName(TypeInfo(TypeDay),ord(day));
         writeln(Str);
     end;
end.

这是输出:

问候。

关于delphi - 如何使用带有枚举类型的WriteLn？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/4459057/