集合类型有什么函数可以操作？

Question

  Include()
  Exclude()

Answer 1

我想显示一个集合中的值，比如用SHOWMESSAGE显示。怎么做？

Answer 2

//我只玩过列举集合属性
//不过已经够你玩了uses
  TypInfo;procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := GetSetProp(Self, 'Anchors', True);
end;//其它就用....
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TSetMy = set of (smNo1, smNo2, smNo3, smNo4);type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    FSetMy: TSetMy;
    { Private declarations }
  public
    { Public declarations }
  published
    property SetMy: TSetMy read FSetMy;
  end;var
  Form1: TForm1;implementation{$R *.dfm}uses
  TypInfo;procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := GetSetProp(Self, 'SetMy', True);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  FSetMy := [smNo1, smNo3];
end;end.

Answer 3

zswang(zs):
决定给你加分。但仍有一个问题：我想在程序运行时返回ADOConnection.State的值，它好象是一个集合。但提示错误。请问是不是GetSetProp不支持运行时的集合属性？

Answer 4

GetSetProp
只能获取声明在published中的属性
//想想办法就解决了
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls;type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    FObjectStates: TObjectStates;
    { Private declarations }
  public
    { Public declarations }
  published
    property ObjectStates: TObjectStates read FObjectStates;
  end;var
  Form1: TForm1;implementation{$R *.dfm}uses
  TypInfo;procedure TForm1.Button1Click(Sender: TObject);
begin
  FObjectStates := ADOConnection1.State;
  Caption := GetSetProp(Self, 'ObjectStates', True);
end;end.

Answer 5

送你一个函数
procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOConnection1.ConnectionString := PromptDataSource(Handle, ADOConnection1.ConnectionString);
end;
如果满意就给我加分吧