uses TypInfo; {以 TAlign 为例} procedure TForm1.Button1Click(Sender: TObject); var enum: TAlign; i: Integer; str: string; begin Memo1.Clear; for enum := Low(TAlign) to High(TAlign) do begin i := ord(enum); //Integer(enum) str := GetEnumName(TypeInfo(TAlign), i); Memo1.Lines.Add(Format('%d : %s', [i, str])); end; end; {************* 0 : alNone 1 : alTop 2 : alBottom 3 : alLeft 4 : alRight 5 : alClient 6 : alCustom **************}
枚举可以这样遍历
原创
©著作权归作者所有:来自51CTO博客作者JLee79的原创作品,请联系作者获取转载授权,否则将追究法律责任
枚举可以这样遍历
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章