法三:字符串转为枚举型
//定义 type Colors = (Red, Yellow, Green, Cyan, Blue, Violet); Suit = (Club, Diamond, Heart, Spade);
//举例: type Colors = (Red, Yellow, Green, Cyan, Blue, Violet); var C: Colors; begin C := Red; ShowMessage(IntToStr(Ord(C))); //0 C := Blue; ShowMessage(IntToStr(Ord(C))); //4 C := Green; ShowMessage(IntToStr(Integer(C))); //2; 获取元素位置用 Integer 也可以 end;
//举例2: type Tabc = (a=5,b=10,c=a+b); var ta,tb,tc: Tabc; begin ta := a; tb := b; tc := c; ShowMessage(IntToStr(Ord(ta))); //5 ShowMessage(IntToStr(Ord(tb))); //10 ShowMessage(IntToStr(Ord(tc))); //15 end;
//获取枚举元素总数: type TMyEnum = (Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday); var m: TMyEnum; num: Integer; begin num := 0; for m := Low(TMyEnum) to High(TMyEnum) do Inc(num); ShowMessage(IntToStr(num)); // 7 end;
//返回枚举元素的字符串标识: uses TypInfo; //需要uses的单元 type TMyEnum = (Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday); procedure TForm1.Button1Click(Sender: TObject); var str: string; begin str := TypInfo.GetEnumName(TypeInfo(TMyEnum),1); ShowMessage(str); //Tuesday end;
//获取对象枚举值的字符串表式: uses TypInfo; //需要uses的单元 procedure TForm1.FormCreate(Sender: TObject); var str: string; begin str := GetEnumProp(Self, 'BorderStyle'); ShowMessage(str); { bsSizeable } end;
法三:字符串转为枚举型
这种方法主要用到 RTTI 的特性。该方法的主要思路是,先把所有的备选项声名
为一个枚举类型的值,那么我们只要把要找的字符串也转换为枚举型,那么就可以
用 case 语句了。那么通过什么办法把一个字符串转化为枚举型呢?往下看:
// uses TypInfo; // 记得引用这个单元
// type TMyStrSel = (Beijing, Tianjing, Shanghai, Chongqing);
// 注意,上面这个定义不能放在某个函数内部哦,那样的话,它就没有运行类信息了
// var strSel: TMyStrSel;
str := 'Chongqing';
strSel := TMyStrSel(GetEnumValue(TypeInfo(TMyStrSel), str));
case strSel of
Beijing: ShowMessage('First');
Tianjing: ShowMessage('Second');
Shanghai: ShowMessage('Third');
Chongqing: ShowMessage('Forth');
else ShowMessage('Other');
end;
稍做解释:GetEnumValue 函数返回一个字符串对应的枚举型的值在某枚举类型
中的位置(要知道枚举类型是有顺序的,要不怎么叫顺序类型呢:-)),然后通过
一个强制类型转换将这个值转化为枚举型。于是就实现了把字符串转化为枚举型的
操作。
可以看到,在 case 语句这一段,我们的使用和理想中的使用方法几乎是一样的!
毕竟枚举类型可以做到见名知意嘛。的确比用前两种方法看起来直观得多。
当然,这并不是万能的方法,如果你的备选项有一个不符合 Delphi 的变量名命
名法则(如'AK-47'或中文等),则不能将其声明为一个枚举型,于是就不能使用这
个方法。如果是这样你就只能使用前两种方法了。极端的情况下,至少你还有第一
种方法可以使用 :-) 但在不少的场合,这种方法还是适用的。
- 快速入门系列--MVC--05行为
- Linux Rsync备份服务介绍及部署守护进程模式
- 企业级Tomcat安全管理优化方案
- “妈妈”域名Mommy.com66万高价易主 现已建站
- 脸书Messenger已中招,新的加密货币挖矿病毒出现!
- Linux中MySQL配置文件my.cnf参数优化
- 干货,比较全面的c#.net公共帮助类(Common.Utility)
- Linux中如何恢复rm命令误删除的文件之extundelete编译安装及使用
- JDK1.7 安装加(一劳永逸的环境配置)
- Jquery 遍历数组之$().each方法与$.each()方法介绍
- ExtJs学习笔记(2)_Basic GridPanel[基本网格]
- Jquery 遍历数组之grep()方法介绍
- ExtJs学习笔记(1)_Hello World!
- Jquery filter()方法简介
- JavaScript 教程
- JavaScript 编辑工具
- JavaScript 与HTML
- JavaScript 与Java
- JavaScript 数据结构
- JavaScript 基本数据类型
- JavaScript 特殊数据类型
- JavaScript 运算符
- JavaScript typeof 运算符
- JavaScript 表达式
- JavaScript 类型转换
- JavaScript 基本语法
- JavaScript 注释
- Javascript 基本处理流程
- Javascript 选择结构
- Javascript if 语句
- Javascript if 语句的嵌套
- Javascript switch 语句
- Javascript 循环结构
- Javascript 循环结构实例
- Javascript 跳转语句
- Javascript 控制语句总结
- Javascript 函数介绍
- Javascript 函数的定义
- Javascript 函数调用
- Javascript 几种特殊的函数
- JavaScript 内置函数简介
- Javascript eval() 函数
- Javascript isFinite() 函数
- Javascript isNaN() 函数
- parseInt() 与 parseFloat()
- escape() 与 unescape()
- Javascript 字符串介绍
- Javascript length属性
- javascript 字符串函数
- Javascript 日期对象简介
- Javascript 日期对象用途
- Date 对象属性和方法
- Javascript 数组是什么
- Javascript 创建数组
- Javascript 数组赋值与取值
- Javascript 数组属性和方法
- java实现多个网络文件批量下载并压缩
- Python学习笔记(四) 爬取网站数据(静态,动态)
- java整合FastDFS文件服务器
- Flutter基础widgets教程-CupertinoSwitch篇
- XmlRootElement的作用和用法
- 获取指定月份的所有工作日(工作日为自定义的)
- 自定义配置类,读取Application.properties中的参数
- 将InputSteram转换成文件输出并下载至本地
- sql serve2008是否自带互斥锁
- Flutter基础widgets教程-CupertinoSwitch篇
- Flutter基础widgets教程-CupertinoTabScaffold篇
- C++11 move 语义
- 论函数的设计应如何才好,返回临时变量 | 返回引用 | 传递引用
- Flutter基础widgets教程-CupertinoTabView篇
- 关于time的使用