关于文本框的小问题，请各位大侠帮帮我!

Question

请问，我想用6次循环，把6个文本框分别赋值成1,2,3,4,5,6
也就是把:
edit1.text:=1
edit2.text:=2
edit3.text:=3
edit4.text:=4
edit5.text:=5
edit6.text:=6
请问我该如何写代码呢？我在这里谢谢了！！！

Answer 1

for i:=1 to 6 do
begin
  tedit(findcomponent('edit'+inttostr(i))).text:=inttostr(i);
end;

Answer 2

你这样写程序在以后的维护中很容易出错,如果修改了Edit的名称,或者删除了一个Edit,用这样的循环在编译时根本发现不了错误.最好是一个个的赋值，而且你用这样的Edit1,Edit2,Edit3命名是非常不好的.一定要用有意义的名称.这样在对窗体修改后很容易在编译时就能发现全部的问题.6个Edit算多吗?用For 是小写出三句话,但带来的问题和以后的维护量会很大的.
  应在窗体创建时给所有控件设定默认显示值,定位焦点.

Answer 3

非常感谢fengzhengren(风筝)，从你的答案来看，您真是一内功高深的大侠，你的回答我非常满意，愿求QQ交个朋友，而ZyxIp(绝望中...)的回答也很好，你说的对，在实际编程中是应该把各个对象命名一个有意义的名称，不过这只是我(b9032)举的一个例子，也实际编程中，我会为每个对象命名的，还有我认为在一些实际场合中还是有集中赋值的必要的