批量读取edit控件的text的属性

Question

小弟在编程时遇到一个问题:在一个窗体上有几十个edit控件他们的name是N1到N60,现在要将他们的text的属性存入我已建好的一个数据库中,我想用循环实现但是不知道在循环体如何写.请各位高人帮忙

Answer 1

在你的保存中写tag :=0;
while Tag<(ComponentCount-1) do
begin
  if Components[Tag] is TEdit then
  begin
    Showmessage((Components[Tag] as TEdit).Text);  //这里是显示每个的值
  end;
  Tag := Tag + 1;
end;

Answer 2

这个执行效率更高
for i:=1 to 60 do
  ShowMessage(TEdit(FindComponent('N'+IntToStr(i))).Text);

Answer 3

var
  i :integer;
begin
  for i:=0 to ComponentCount - 1 do                 //所有控件个数
      if Components[i] is TEdit then                //控件是否为TEdit
         TEdit(Components[i]).Text......;//将此值写入数据库
end;