一个写 函数 或 过程 的问题???(50分)

请问: 需要写一个 函数 或 过程 ,如下: 下面是错的,请问如何修正...
function TForm1.YX(SZ: string): boolean; //实际上就是取代 下面的数字动态变化
begin
try
ADO+SZ.Close; // 就是 说 YX('1') 就是 说 ADO1 .
ADO+SZ.SQL.Text := 'select * from XS'
ADO+SZ.Open;
if ADO+SZ.RecordCount > 0 then
begin
Result := True;
end
else Result := False;
except
Result := False;
end;
end;
//下面的也是一样..其实就是太多Form了,都是Close,open的..想写个函数/过程取代, ..如何 在 函数/过程 动态 更改 下面 的 1/2/XS 等..
DbgridEh1.DataSource.DataSet
dbgrideh2.Columns.Count
ADOXS.RecordCount

请指点 或 给出 解决 代码..谢谢..

你可以这样:
TADOQuery(FindComponent(ADO+sz)).close;
////

把控件名当函数传过去就OK了
比如
MyFunction(a:TDataSet);

1 你的想法很好；
2 如果相同组件太多了，就用组件数组吧；
3 ADO+SZ.Close
应写成 (ADO+SZ).Close

3Q..先试试...

呵呵.差一分