delphi中遍历枚举类型的方法

最新推荐文章于 2024-05-09 12:30:04 发布

easyboot

最新推荐文章于 2024-05-09 12:30:04 发布

阅读量3.1k

点赞数

分类专栏： Delphi 文章标签： delphi integer

Delphi 专栏收录该内容

54 篇文章 2 订阅

订阅专栏

刚好碰到 ，顺便试了下，有需要的朋友可以看看。 
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;