文档章节

子界

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 117
阅读 6
收藏 0
//定义
type
  Ten = 1..10;
  OverHundred = 100..1000;
  Uppercase = 'A'..'Z';
  //TMonth = Jan..Dec;

 
 
 
 
 

 

 

  
//应用 var UppLetter: UpperCase; begin UppLetter := 'F';
//判断是否属于子界范围 var i: Integer; begin i := 1; if i in [0..10] then ShowMessage('i 大于0、小于10'); end;
//根据枚举定义子界 type TColors = (Red,Blue,Green,Yellow,Orange,Purple,White,Black); TMyColors = Blue..Yellow; var MyColor: TMyColors; begin MyColor := Blue; ShowMessage(IntToStr(Ord(MyColor))); //1 end;
//遍历子界 var character: 'a' .. 'z'; s: string; begin for character in [Low(character) .. High(character)] do begin s := s + character; end; ShowMessage(s); //abcdefghijklmnopqrstuvwxyz end;

本文转载自:http://www.cnblogs.com/del/archive/2007/11/30/978672.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Q907 Sum of Subarray Minimums

Given an array of integers A, find the sum of min(B), where B ranges over every (contiguous) subarray of A. Since the answer may be large, return the answer modulo 10^9 + 7. Exa......

牛奶芝麻
09/26
0
0
常用算法和复杂度总结

一、常用算法和复杂度 算法 名称 复杂度 备注 快速排序 QuickSort(A,p,r) 最坏:O(n2) 平均:O(nlog n) 均衡划分:O(nlog n) 合并排序 MergeSort(A,p,r) O(nlog n) 选最大 FindMax O(n) 选最...

啊莱
2010/01/03
0
0
迭代子(Iterator)模式

  迭代子模式又叫游标(Cursor)模式,是对象的行为模式。迭代子模式可以顺序地访问一个聚集中的元素而不必暴露聚集的内部表象(internal representation)。 聚集和JAVA聚集   多个对象聚...

小菜鸡1
2016/08/23
8
0
从《透视小邪医》谈玄幻修仙小说

微信原文地址: 【文学文娱】从《透视小邪医》谈玄幻修仙小说 一、写在前边 好几星期没有更新文章了,因为都在看玄幻修仙小说《透视小邪医》,600万字的小说,我看了20天,作者也写了6年,真...

程序员的文娱情怀
08/05
0
0
iOS Debuger(便捷辅助调试器)

前言 首先写这篇文章之前祝大家周末愉快,然后自我介绍一下,我叫吴海超(WHC)在iOS领域有丰富的开发架构经验Github以后我也会以文章的形式分享具有实战意义的文章给大家,希望能够给大家有所...

WHC
10/30
0
0

没有更多内容

加载失败,请刷新页面

加载更多

OSChina 周六乱弹 —— 你一口我一口多咬一口是小狗

Osc乱弹歌单(2018)请戳(这里) 【今日歌曲】 @达尔文 :分享Roy Orbison的单曲《She's a Mystery to Me》 《She's a Mystery to Me》- Roy Orbison 手机党少年们想听歌,请使劲儿戳(这里...

小小编辑
59分钟前
11
3
Spring源码学习笔记-1-Resource

打算补下基础,学习下Spring源码,参考书籍是《Spring源码深度解析》,使用版本是Spring 3.2.x,本来想试图用脑图记录的,发现代码部分不好贴,还是作罢,这里只大略记录下想法,不写太细了 ...

zypy333
今天
12
0
RestClientUtil和ConfigRestClientUtil区别说明

RestClientUtil directly executes the DSL defined in the code. ConfigRestClientUtil gets the DSL defined in the configuration file by the DSL name and executes it. RestClientUtil......

bboss
今天
19
0

中国龙-扬科
昨天
2
0
Linux系统设置全局的默认网络代理

更改全局配置文件/etc/profile all_proxy="all_proxy=socks://rahowviahva.ml:80/"ftp_proxy="ftp_proxy=http://rahowviahva.ml:80/"http_proxy="http_proxy=http://rahowviahva.ml:80/"......

临江仙卜算子
昨天
13
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部