Конвертировать значение перечислимого типа в строку
uses System.TypInfo ; type TMyType = (mtFirst, mtSecond, mtThird, mtForth, mtFifth, mtLast); var TM : TMyType; TFS: TFontStyle; begin // Допустимые значения TFontStyle for TFS := Low(TFontStyle) to High(TFontStyle) do Memo3.Lines.Add(GetEnumName(TypeInfo(TFontStyle), ord(TFS))); // или собственного типа for TM := Low(TMyType) to High(TMyType) do Memo3.Lines.Add(GetEnumName(TypeInfo(TMyType), ord(TM))); end;
Метки: