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.

 



集合遍历方法

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

Delphi 集合 使用资料收集

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

delphi中in的使用

问题: 在Delphi中,如何将集合数据类型中的某元素取出来?如set1:=[1,2,3,4,5,6]中的第三项3取出放入一变量中。  Delphi的集合不同于数组或者List或者VB的Collec...

Delphi的set集合操作

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

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

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

delphi 递归实现从m 个集合中 任取一个元素 生成组合

主要思想: 求从n个数组任意选取一个元素的所有组合,对于这个问题,我们在直观上感觉很容易,但是用程序实现时则发现用for循环解决不了问题,因为n是随意的。 在这里,我们用递归的思想,对于数据[1...

delphi 元音字母统计集合运算

  • 2013年10月21日 12:17
  • 477KB
  • 下载

Delphi精选控件大集合1、2

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

Delphi Spcomm控件的安装和说明

用Delphi 实现串口通讯,常用的几种方法为:使用控件如MSCOMM和SPCOMM,使用API函数或者在Delphi 中调用其它串口通讯程序。利用API编写串口通信程序较为复杂,需要掌握大量通信知识...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi集合
举报原因:
原因补充:

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