如何把 一段代码 赋给 一个过程! (散分)急啊! 不知道大家这样做过没? 我想在程序运行过程中动态地把 代码赋给一个过程!比如说 临时动态 create 了一个query ,然后在想在其中一个字段的 onGetText加入一段代码,应该怎么加呢?由于是动态生成的,所以怎么给其中的过程 加代码吗? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 定义一个和onGetText参数一个类成员函数MyOnGetText(..),里面些你的代码,然后把这个字段的onGetText:=MyOnGetText 呵呵, to citytramper(阿琪)你能够 具体说清楚点吗?谢谢了哦!~~~ 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; 为什么我这样做了不行啊?我在数据库test的name字段里面写了showmessage('');结果调用时没有反应啊?谁能告诉我为什么? 定义一个和onGetText参数一个类成员函数MyOnGetText(..),里面些你的代码,然后把这个字段的onGetText:=MyOnGetText说得对 你是想在字段里放delphi语句,然后读取出来执行?这是做不到的. 为什么我这样做了不行啊?我在数据库test的name字段里面写了showmessage('');结果调用时没有反应啊?谁能告诉我为什么?____________________________________________________________________晕,你这样showmessage('')只是个string,怎么能执行?如果代码固定的话,可以以参数的形式传递给相应的过程再执行 那么楼主的:我想在程序运行过程中动态地把 代码赋给一个过程!比如说 临时动态 create 了一个query ,然后在想在其中一个字段的 onGetText加入一段代码,应该怎么加呢? 是什么意思? 个个都有分!呵呵!我还是比较大方的!但是就是不明白csdn干嘛扣我的信誉分!就是因为没结去年的贴?!!!???!!!???!!!因为那些没结的贴都没有正确答案!叫我怎么结!冤枉ing 如何在delphi同一界面下显示不同表的内容 如何取得己経打開的同一個子Form的個数 跪求一算法! 如何输出带阴影效果字体? 如何控制ScrollBox的滚动条的初始状态一开始是最TOP的? 帮帮忙 一个关于用Delphi编写.net系统的问题! 试问DELPHI中的线程是一个什么样的概念? 请教关于 WebBrowser 的问题 DELPHI访问ACCESS数据库出错,怎么回事? 如何判断一个线程进入死循环? 函数请教!!!
你能够 具体说清楚点吗?谢谢了哦!~~~
begin
self.Query1.Open;
self.Query1.FieldByName('Name').OnGetText:=self.MyOnGetText;
end;procedure TForm1.MyOnGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
//.........
end;
这是做不到的.
____________________________________________________________________晕,你这样showmessage('')只是个string,怎么能执行?如果代码固定的话,可以以参数的形式传递给相应的过程再执行
我还是比较大方的!但是就是不明白csdn干嘛扣我的信誉分!
就是因为没结去年的贴?!!!???!!!???!!!
因为那些没结的贴都没有正确答案!叫我怎么结!
冤枉ing