2010/09/26 Delphi 中枚举类型的遍历 Interface // Uses Add TypInfo; Type TMyEnum = (Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday); ... var m: TMyEnum; begin for m := Low(TMyenum) to High(TMyenum) do mmo1.Lines.Add( IntToStr(Ord(m)) + ' = ' + TypInfo.GetEnumName(TypeInfo(TmyEnum),Ord(m))); end; 结果如下: