如何把 一段代码 赋给 一个过程！ （散分）急啊！ 不知道大家这样做过没？

Question

我想在程序运行过程中动态地把 代码赋给一个过程！比如说 临时动态 create 了一个query ，然后在想在其中一个字段的 onGetText加入一段代码，应该怎么加呢？由于是动态生成的，所以怎么给其中的过程 加代码吗？

Answer 1

定义一个和onGetText参数一个类成员函数MyOnGetText(..)，里面些你的代码，然后把这个字段的onGetText:=MyOnGetText

Answer 2

呵呵， to citytramper(阿琪)
你能够 具体说清楚点吗？谢谢了哦！~~~

Answer 3

procedure MyOnGetText(Sender: TField; var Text: String; DisplayText: Boolean);procedure TForm1.FormCreate(Sender: TObject);
begin
  self.Query1.Open;
  self.Query1.FieldByName('Name').OnGetText:=self.MyOnGetText;
end;procedure TForm1.MyOnGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
//.........
end;

Answer 4

为什么我这样做了不行啊？我在数据库test的name字段里面写了showmessage('');结果调用时没有反应啊？谁能告诉我为什么？

Answer 5

定义一个和onGetText参数一个类成员函数MyOnGetText(..)，里面些你的代码，然后把这个字段的onGetText:=MyOnGetText说得对

Answer 6

你是想在字段里放delphi语句,然后读取出来执行?
这是做不到的.

Answer 7

为什么我这样做了不行啊？我在数据库test的name字段里面写了showmessage('');结果调用时没有反应啊？谁能告诉我为什么？
____________________________________________________________________晕，你这样showmessage('')只是个string，怎么能执行？如果代码固定的话，可以以参数的形式传递给相应的过程再执行

Answer 8

那么楼主的：我想在程序运行过程中动态地把 代码赋给一个过程！比如说 临时动态 create 了一个query ，然后在想在其中一个字段的 onGetText加入一段代码，应该怎么加呢？  是什么意思？

Answer 9

个个都有分！呵呵！
我还是比较大方的！但是就是不明白csdn干嘛扣我的信誉分！
就是因为没结去年的贴？！！！???!!!???!!!
因为那些没结的贴都没有正确答案！叫我怎么结！
冤枉ing