使用Components
示例
procedure Test;
var
I: Integer;
begin
for I := 0 to DataModule1.ComponentCount - 1 do
begin
(* 判断是否从TDataSet继承,基本上DELPHI中所有的表类都是从TDataSet中继承，这里只是个示例，你可以根据你自己的实际变换 *)
if DataModule1.Components.InheritsFrom(TDataSet) then
begin
(* 写上你自己的处理代码 *)
end;
end;
end;
