Delphi 枚举的学习

weiabc

于 2025-03-04 21:40:06 发布

阅读量83

点赞数 1

分类专栏： Delphi基础文章标签：学习

本文链接：https://blog.youkuaiyun.com/weiabc/article/details/146027806

版权

Delphi基础专栏收录该内容

20 篇文章

订阅专栏

Program Project;

Uses
    TypInfo, // 用于枚举类型反射
    SysUtils;

Type
    TColors = (Red, Blue, Green); // 符合Pascal命名规范的枚举类型

Var
    Color1, Color2, Color3: TColors;


    { 演示正确的枚举遍历方式 }
Procedure demo1();
Begin
    Color1 := TColors.Red;
    Color2 := TColors.Blue;
    Color3 := TColors.Green;

    // 输出序数值验证
    Writeln('Demo1序数值:');
    Writeln(ord(Color1)); // 0
    Writeln(ord(Color2)); // 1
    Writeln(ord(Color3)); // 2
    Writeln('----------');

    // 正确遍历方式：直接使用枚举值的Ord值
    Writeln('枚举值遍历:');
    For Color1 := Low(TColors) To High(TColors) Do
    Begin
// 关键改进：使用当前枚举值的Ord值作为索引
        Writeln(GetEnumName(TypeInfo(TColors), Ord(Color1)));
        Writeln(GetEnumValue(TypeInfo(TColors), GetEnumName(TypeInfo(TColors), Ord(Color1))));

    End;
End;



Begin
    demo1();
    readln; // 保持控制台窗口打开
End.