动态生成edit的控制

Question

有一个记录输入界面，要求每行9个edit来输入，每次输好一行，在下一行动态生成9个edit，等n行数据输入完毕后统一提交给数据库，但是感觉EDIT太多了，给每个动态的EDIT写关联事件处理起来也很麻烦，请教下大家有没有什么好的处理办法

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
    for i := 0 to ComponentCount - 1 do
    if Components[i] is Tedit then
      Tedit(Components[i]).Onclick := click;//这样？
end;我也只知道这个方法了。

Answer 2

2楼的，我也是这么做的，但是感觉很麻烦，因为动态生成的EDIT太多了，所以想请教个简单的方法，3楼的，不能用表格，需要用输入框来完成，呵呵

Answer 3

用一个数组或者TList保存你的动态创建的EDIT，到最后一次性处理。

Answer 4

表格也有可以直接输入的。就算用ListView，想实现输入都可以实现。而且效果绝对理想。