文档章节

枚举可以这样遍历

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 71
阅读 8
收藏 0

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
**************}

本文转载自:http://www.cnblogs.com/del/archive/2011/03/29/1998955.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
iOS设计模式--迭代器模式

何为迭代器模式? 迭代器提供了一种顺序访问集合对象中元素的方法,而无需暴漏结构的底层表示和细节。遍历集合中元素的职能从集合本身转移到迭代器对象。迭代器定义了一个用于访问集合元素并...

国士梅花
2015/08/28
109
0
java枚举类型enum的使用

java 枚举类型enum 的使用 最近跟同事讨论问题的时候,突然同事提到我们为什么java 中定义的常量值不采用enmu 枚举类型,而采用public final static 类型来定义呢?以前我们都是采用这种方式...

微wx笑
2014/08/25
0
0
java枚举类型enum的使用

java 枚举类型enum 的使用 最近跟同事讨论问题的时候,突然同事提到我们为什么java 中定义的常量值不采用enmu 枚举类型,而采用public final static 类型来定义呢?以前我们都是采用这种方式...

技术小牛
2014/05/10
0
0
Java 枚举 通过数字实例化枚举类型

java枚举类Enum方法简介(valueof,value,ordinal) Enum作为Sun全新引进的一个关键字,看起来很象是特殊的class, 它也可以有自己的变量,可以定义自己的方法,可以实现一个或者多个接口。 当我...

不开心时不要学习
06/30
0
0
域名爆破工具--FuzzDomain

爆破原理: 爆破的原理其实是通过枚举域名的A记录的方式来实现的 泛解析如何爆破: 首先的访问一个随机并不存在的域名chorashishuaige.xx.com,记录其泛解析到的IP地址。 然后通过字典或者自...

匿名
2017/02/25
476
1

没有更多内容

加载失败,请刷新页面

加载更多

下一页

shell-日志脚本小实验

1.查找日志2018-8-15,求得那一分钟访问量最大。 #/bin/bash#from cc#2018-8-15#2018-08-15.log 哪一分钟 访问量 最大for d in `ls /data/nginx/logs/`doif [ -a 2018-08-15...

chencheng-linux
昨天
0
0
Android中的设计模式之状态模式

参考 《设计模式:可复用面向对象软件的基础 》5.8 State 状态 对象行为型模式 《Android源码设计模式解析与实战》第7章 随遇而安--状态模式 意图 允许一个对象在其内部状态改变时改变它的行...

newtrek
昨天
0
0
xshell端 vim没有颜色

说明 使用xshell连接服务器的时候,使用vim打开文档没有颜色 解决方法: 1.在更目录home或者etc下找到vim的配置文件vimrc 2.vim打开它找个坑,添加下面这个东西 set t_Co=256 3.保存退出,就...

杉下
昨天
0
0
spring 资料

spring boot http://www.ityouknow.com/springboot/2016/01/06/spring-boot-quick-start.html

zaolonglei
昨天
2
0
TypeScript基础入门 - 函数 - 简介

转载 TypeScript基础入门 - 函数 - 简介 项目实践仓库 https://github.com/durban89/typescript_demo.gittag: 1.1.6 为了保证后面的学习演示需要安装下ts-node,这样后面的每个操作都能直接...

durban
昨天
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部