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

tsg 2001-11-08 03:05:09

...全文

131 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

tsg 2001-11-09

打赏
举报

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

王集鹄 2001-11-09

打赏
举报

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

王集鹄 2001-11-09

打赏
举报

GetSetProp
只能获取声明在published中的属性
//想想办法就解决了
unit Unit1;

interface

uses
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.

王集鹄 2001-11-08

打赏
举报

//我只玩过列举集合属性
//不过已经够你玩了

uses
TypInfo;

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := GetSetProp(Self, 'Anchors', True);
end;

//其它就用....
unit Unit1;

interface

uses
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.

tsg 2001-11-08