数据类型-子界

wizard_zq

于 2013-11-11 10:02:27 发布

阅读量356

点赞数

分类专栏： delphi学习

delphi学习专栏收录该内容

5 篇文章

订阅专栏

本文介绍Pascal编程语言中子界与枚举类型的定义及使用方法，包括变量声明、条件判断和循环操作等内容，并通过具体示例进行说明。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

容易忘记，留作脑补

//定义
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;