Delphi中语法的问题：如何对某一组控件的引用

Question

我以前是用C，因改用Delphi。因手上无资料，现有个问题。
我建立了一组控件，诸如：Edit1、Edit2、Edit3、Edit4。Editn
现需要共用一段代码，如都在Click事件将其Tag值改成其Name中的尾号。
意思就是用Edit[i]来实现，语法上如何表达？是单个引用，另外也不想用遍历的办法

Answer 1

DELPHI是以类为基础的。这种引用是一种错误的。回去看相关的技术资料吧

Answer 2

To：wzhhe()
我知道这样是错的，只是想表达这样的意思而已。另外我就是没资料才在这里问。这个问题应该很常见（编程的都会遇到），希望大家援手。

Answer 3

很简单呀,
你只要写一段共用的代码在EDIT1.ONCLICK上.
其它的EDIT的ONCLICK指向EDIT1.ONCLICK

Answer 4

方法一：
定义一个动态数组，初始化时把他们指向相应的对象即可。
方法二：
为每个对象指定Tag值，并象楼上所说这些对象共用一个事件处理程序，那么在事件处理程序中写：
with Sender as TEdit do case Tag of
  1:
  2:
  3:
  ...
else
  ...
end;
即可。
实际上，对于不同的对象类型，只要他们的事件处理程序可以共用（即事件类型兼容或相等），都可以利用类似的途径实现，需要注意的是，需要鉴别对象所属类的类型。