遍历form上所有的控件，判断控件类型，然后抓数据

遍历form上所有的控件，判断控件类型，然后抓数据- -

                                      

如果是在自己编写的程序中，当然可以实现，可以通过
枚举的方法，如：
for i:=0 to ComponentCount-1 do
begin
  if (ComponentCounts[i] is TEdit) then
  begin
     vStr:=(ComponentCounts[i] as TEdit).Text;
  end;
  其它的依此类推.........
end;

var
  i: integer;
begin
  for i :=0 to Form1.ComponentCount do
  begin
    if Form1.Components[i].ClassType=你需要设定的控件类型 then
    ......
  end;
end;