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基本类型--枚举 子界 集合 数组

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

集合遍历方法

集合遍历方法 //集合的遍历 Collection c=new ArrayList(); c.add("hello"); c.add("world"); ...

delphi TStringList 遍历操作

delphi TStringList 遍历操作

遍历list的三种方式

问题场景在IDEA里面用传统for循环遍历list的时候,提示‘for loop replaceable with foreach …’,为什么会提示?难道foreach的效率高?动手实验了一把。思考...

Delphi的set集合操作

好久没用Delphi的集合操作了,差点忘记了,今天要用到标志集合的判断操作,顺便整理一下: 1.定义一个集合  TMyFlag = (TMyFlagStart,TMyFlagStop);  TMyFl...

Delphi精选控件大集合1、2

  • 2003-06-15 00:00
  • 127MB
  • 下载

Delphi用Indy10发邮件的单元,超简单

unit USendMail; interface uses SysUtils, Classes, IdSMTP, IdMessage, IdAttachmentFile; /// /// 邮...
  • cmd9x
  • cmd9x
  • 2013-01-06 15:21
  • 1068

delphi的Public.Private.Protected.Published作用域

delphi的Public.Private.Protected.Published作用域关于Class里的成员: 1.Public, 2.Private, 3.Protected, 4.Pub...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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