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

发布时间：2020-12-15 04:07:14 所属栏目：大数据来源：网络整理

导读：我正在尝试为一周中的几天制作自定义数据类型,但我无法写它.编译器错误说明： [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: Typ

我正在尝试为一周中的几天制作自定义数据类型,但我无法写它.编译器错误说明：

[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中.

解决方法

你不需要为此编写汇编程序; TypInfo包含执行此操作所需的所有内容(获取与枚举值关联的字符串).

这段代码：

program hours;

{$APPTYPE CONSOLE}

uses
  SysUtils,TypInfo;

type
  TypeDay = (Sun,Sat);

var
  day: TypeDay;
  Str:String;

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

这是输出：

问候.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!