type MyComponent1=class(TComponent)
public
FDateSets:TList;
function GetDataSet(Index:integer):TDataset;
public
DataSets[Index:integer]:TDataSet read GetDateSet;
end;procedure mycompoent.create;
begin
datesets:=TList.Create;
end;
procedure mycomponent.addDataset(DataSet:TDataSet);
begin
dataSets.Add(DataSet);
end;
function mycomponent.GetDateSet(index:integer):TDataSet;
var i:integer;
begin
if Index>0 or Index<FDataSets.Count then
Result:=TDataSet(FDataSets.Items[i]);
end;
public
FDateSets:TList;
function GetDataSet(Index:integer):TDataset;
public
DataSets[Index:integer]:TDataSet read GetDateSet;
end;procedure mycompoent.create;
begin
datesets:=TList.Create;
end;
procedure mycomponent.addDataset(DataSet:TDataSet);
begin
dataSets.Add(DataSet);
end;
function mycomponent.GetDateSet(index:integer):TDataSet;
var i:integer;
begin
if Index>0 or Index<FDataSets.Count then
Result:=TDataSet(FDataSets.Items[i]);
end;
解决方案 »
- 哪位大虾可以告诉我RemObjects中的EventSessionManager怎么用的啊?
- 如何在*.dll文件中增加有个form1,在需要时显示这个表单?, form1.showmodal;?
- TClientSocket和TServerSocket的问题:《比猛料更猛的技巧集》中的例子运行时出错??救命!
- 在线等待,关于数据记录和位置的问题
- 动态加载数据库时怎样添加用户名和密码>>>>>>
- 源代码出售(Delphi版)
- 限制edit只能输入英文或数字
- FTP上传出现问题?响应完成了,但文件夹里没有该上传的文件
- 关于截屏的问题, 请你帮帮我
- 能否设置RichEdit的行距
- 轻松送分,如何将一个delphi程序最小化到系统托盘处
- 关于NT服务器程序
用户能在 Object Inspector中直接见到值的那种;