如何将对象作为参数传递和引用?(80分)

  • 主题发起人 主题发起人 feigepan
  • 开始时间 开始时间
F

feigepan

Unregistered / Unconfirmed
GUEST, unregistred user!
adoquery、adotable如何作为参数传递给过程或函数,好编写修改数据、删除数据的通用过程?
(不过要编写查询、插入的过程函数好象还是很难。)
 
不好吧,把ADOQuery,ADOTable放在数据模块中,在通用过程的单元中引用数据模块就行了
 
很简单的啊,对象都是指针,传一个指针就好了.比如TNotifyEvent的参数sender就是
 
procedure Myproc(Table:TAdoTable)
begin
Table.First;
end;

Myproc(AdoTable1)
 
我试试
TDataSetClass := Class of TDataSet;
Porcedure Add(ADataClass : TDataSetClass);
var
ADataSet : TADODataSet;

begin
ADataSet := ADataClass.create;
try
ADataSet.ConnectionString :='...';
ADataSet.CommandTExt :='inSert into...';
ADataSet.Open;
Finally
ADataSet.free;
end;

end;
 
相传就传吧,没有问题!
 
在delphi里想传什么类型的参数直接传就是了。
 
多人接受答案了。
 
后退
顶部