遍历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;