枚举可以这样遍历
2021-05-01 00:00
274 查看
枚举可以这样遍历
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 **************}
相关文章推荐
- 如何用产品思维摆地摊月入三万?
- 简单的 "双缓冲" 绘图的例子 - 回复 "TookiQ" 的问题
- WCF揭秘——使用AJAX+WCF服务进行页面开发
- 使用WCF实现SOA面向服务编程—— 架构设计
- 如何用 GDI 绘制阴影文字 - 回复
- SOA面向服务架构——SOA的概念
- 如何用 GDI+ 高质量地缩放图片 - 回复
- 哪个企业网盘可以实现dwg在线预览?
- 痞子衡嵌入式:实抓Flash信号波形来看i.MXRT的FlexSPI外设下AHB读访问情形(无缓存)
- 基本的SQL语句
- 基于Vue+SSM+Mysql停车位预约停车场计费系统设计可升级SpringBoot
- vue.js基础还不会?——看这篇文章就够了
- KMP(梅开三度之数据结构详解版
- 2021年 Android 程序员真实的就业前景
- 【cypress】2. 安装Cypress(windows系统),以及cypress open报错解决。
- BLE链路层信道选择算法浅析
- AE、VAE、Beta-VAE学习记录
- Java Case Interview
- 跨行转 IT 程序员 :新手该如何去学好编程?不要太随意了!
- macos clion 2021 C++远程开发