Delphi集合

转载 2011年01月09日 22:21:00

 

//定义
type
  Uppercase = 'A'..'Z';
  Letters = set of Uppercase;  //基于子界定义

  TBorderIcon = (biSystemMenu, biMinimize, biMaximize, biHelp);
  TBorderIcons = set of TBorderIcon;  //基于枚举定义

//应用 type Uppercase = 'A'..'Z'; Letters = set of Uppercase; //基于子界定义 var L1, L2, L3: Letters; begin L1 := ['A', 'B', 'C']; L2 := ['K']; L3 := []; if 'A' in L1 then ShowMessage('true'); //true if L2=['K'] then ShowMessage('true'); //true if L3=[] then ShowMessage('true'); //true end;
//判断是否属于集合 type TSet = set of (A,B,C); var set1: TSet; begin set1 := [A,B]; if A in set1 then ShowMessage('集合 set1 包含 A'); end;
//集合元素的增减 type TSet = set of (A,B,C); var set1: TSet; begin set1 := [A]; set1 := set1 + [B]; //增加一个元素 Include(set1,B); //增加一个元素 set1 := set1 - [B]; //排除一个元素 Exclude(set1,B); //排除一个元素 end;
//集合添加元素举例 type TCharSet = set of char; var character: 'a'..'z'; charSet: TCharSet; word: string; begin charSet := []; for character in [Low(character) .. High(character)] do begin if character in ['d', 'e', 'l', 'p', 'h', 'i'] then begin Include(charSet, character); end; end; for character in charSet do begin word := word + character; end; ShowMessage(word); //dehilp end;
获取集合元素个数

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  set1: set of Char; {定义一个字符集合变量}
  c: Char;           {定义个字符用于遍历集合}
  num: Integer;      {用于计数}
begin
  set1 := ['a'..'z', 'A'..'Z', '0'..'9']; {给集合赋值}
  
  num := 0;
  for c in set1 do Inc(num); {遍历字符集合 set1, 让 num 计数}   

  ShowMessage(IntToStr(num)); {62}
end;

end.

 



Delphi 集合 使用资料收集

集合的使用      (一)       delphi中的集合是对数学中集合的概念的简单实现。要求是集合中的元素必须同类型,且必须是序数类型,且集合中可能的元素个数不能大于255。     定义: t...
  • ainixiaozhuzi
  • ainixiaozhuzi
  • 2013年10月20日 10:12
  • 1153

Delphi基本类型--枚举 子界 集合 数组

枚举类型   Pascal程序不仅用于数值处理,还更广泛地用于处理非数值的数据。例如,性别、月份、星期几、颜色、单位名、学历、职业等。 1、枚举类型的定义 格式: type 枚举类型标识符...
  • QustDong
  • QustDong
  • 2013年07月03日 10:37
  • 8820

delphi部分技巧集合

摘自http://www.zahui.com/html/2/5733.htm◇[DELPHI]网络邻居复制文件uses shellapi;copyfile(pchar(newfile.txt),pch...
  • mingwei912
  • mingwei912
  • 2005年03月17日 13:32
  • 1676

集合遍历方法

集合遍历方法 //集合的遍历 Collection c=new ArrayList(); c.add("hello"); c.add("world"); ...
  • u012157999
  • u012157999
  • 2016年01月05日 16:56
  • 643

Delphi 中枚举类型的遍历 (From 万一博客)

Delphi 枚举类型 遍历
  • bambuz
  • bambuz
  • 2010年09月26日 09:29
  • 3642

delphi中遍历枚举类型的方法

刚好碰到 ,顺便试了下,有需要的朋友可以看看。 uses TypInfo; type TOrderType = (otFN,otGR,otSZ); var pi:PTypeInfo...
  • easyboot
  • easyboot
  • 2012年09月21日 14:37
  • 2387

Delphi集合

Delphi集合
  • shuaihj
  • shuaihj
  • 2011年01月09日 22:21
  • 2859

Delphi源代码大集合

  • 2003年06月15日 00:00
  • 9.18MB
  • 下载

Delphi 官方下载 地址

RAD Studio 2007 v11.0.2902.10471 说明:已集成Update3   http://altd.codegear.com/download/radstudio2007/Cod...
  • shuaihj
  • shuaihj
  • 2011年02月12日 11:59
  • 2831

判断一个元素是否在一个集合中

出自http://community.csdn.net/Expert/TopicView1.asp?id=3660145QuickKeyBoard() 这样的问题在noi教学中属于基础问题,当你要看一...
  • firetoucher
  • firetoucher
  • 2004年12月22日 11:52
  • 3317
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi集合
举报原因:
原因补充:

(最多只允许输入30个字)