求一函数的写法
有一函数FindData(Adataset:TDataset;First:TDBEdit):Boolean, 传递一个数据集，一个文本框参数，現在我需要傳遞多个文本框，如FindData(Adataset:TDataset;First,Second,Three:TDBEdit):Boolean), 文本框个数不定, 不知如何实现。
请高手指点。
问题点数：50、回复次数：8Top
1 楼wozhuchuanwei（一个组件编写者，就一定是一个更优秀的Delphi开发者）回复于 2005-06-09 14:13:20 得分 0
能描述详细点么？
谢谢！Top
2 楼uiwq（呆豆）回复于 2005-06-09 14:15:54 得分 5
文本框个数不定个数不限？
我想可以用数组来传吧Top
3 楼imho888（）回复于 2005-06-09 15:05:36 得分 0
建议用数组，加上长度就行了Top
4 楼ypnet（高原）回复于 2005-06-09 17:00:33 得分 0
我的确想用数组传递，但小弟还真不知如何用数组传递对象Top
5 楼sseedd（草裙舞男）回复于 2005-06-09 17:19:02 得分 5
把DBEdit放在Panel上，传个Panel过去就行了
在函数里面可以用for i:=0 to Panel.ControlCount-1 找DBEdit
用 Panel.Controls[i] is TDBEdit 判断是否DBEdit
用TDBEdit(Panel.Controls[i])···Top
6 楼hanlin2004（道德守望者）回复于 2005-06-09 17:27:14 得分 40
function FindData(Adataset: TDataset;arrDBEdit: array of TDBEdit):Boolean
var
i: int
begin
for i:=0 to Length(arrDbEdit) do
begin
arrDBEdit[i].Field……
end;
。。。。。。。。
end;
调用函数：
FindData(AdoQuery1, [DBEdit1, DBEdit2,...])Top
7 楼hanlin2004（道德守望者）回复于 2005-06-09 17:28:16 得分 0
for i:=0 to Length(arrDbEdit) - 1 do
Top
8 楼ypnet（高原）回复于 2005-06-10 16:58:59 得分 0
感谢hanlin2004(乘千里风破万里浪) 兄Top
