菜鸟请问：运行期间动态创建一个TTable，如何创建它的OnGetText事件？

Question

如果在编码时放上一个table，则字段的事件可以这样生成：
    procedure Col1GetText(Sender: TField; var Text: String;DisplayText: Boolean);但是如果运行期间动态创建了一个Ttable，如何创建它的一个字段的OnGetText事件呢？table1.col1.ongettext := ?

Answer 1

声明一个函数:
procedure MyCol1GetText(Sender: TField; var Text: String;DisplayText: Boolean);
然后实现它，再然后就是：
table1.col1.ongettext := yCol1GetText;

Answer 2

晕……少打了，是table1.col1.ongettext := MyCol1GetText;

Answer 3

用动态的Ttable的Col1GetText调用事先写好的Col1GetText事件

Answer 4

声明一个函数:
procedure MyCol1GetText(Sender: TField; var Text: String;DisplayText: Boolean);
然后实现它，再然后就是：
table1.col1.ongettext := yCol1GetText;

Answer 5

现在发现，如果是使用table.append的话，ongettext事件不会触发，那么怎样才能够在append的时候也可以改变显示的值呢？谢谢！！

Answer 6

使用table.append的话，ongettext事件不会触发
？