delphi - 如何将 WriteLn 与枚举类型一起使用？

Question

我正在尝试为一周中的几天创建自定义数据类型，但我无法让它写入。编译器错误如下:

[Error] hours.dpr(28): Illegal type in Write/Writeln statement

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 中。

Answer 1

您不需要为此编写汇编程序； 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.

这是输出:

问候。