zoukankan      html  css  js  c++  java
  • delphi中遍历枚举类型的方法

    刚好碰到 ,顺便试了下,有需要的朋友可以看看。

    uses TypInfo;

    type 

    TOrderType = (otFN,otGR,otSZ);

    var

        pi:PTypeInfo;

        i:Integer; ot:TOrderType; s:String;

    begin
        pi:=  TypeInfo(TOrderType);
        with GetTypeData(pi)^ do
        begin
          for i := MinValue to MaxValue do
          begin
            s :=   GetEnumName(pi,i);
            case TOrderType(GetEnumValue(pi,s)) of
              otFN : ShowMessage('otFN');
              otGR: ShowMessage('otGR');
              otSZ: ShowMessage('otSZ');
            end;
          end;
        end;

    end;
  • 相关阅读:
    tomcat的安装以及环境配置
    MySQL日期/时间函数
    docker部署tomcat
    Lambda的高级查询
    Linq的使用
    多线程编程
    反射
    匿名类型
    委托和事件
    泛型特性
  • 原文地址:https://www.cnblogs.com/yooplmqj/p/1290640.html
Copyright © 2011-2022 走看看