如何动态调用自定义函数?(200分)

dj · 1999-10-19

我在系统中把函数名放在了后台数据库的table中,然后在程序中对各函数 进行了定义.我想在主程序中通过一段控制过程动态的根据用户的输入从数据 库table中取出函数名然后运行.但不知如何实现,请救苦救难的大虾帮在下一 把.多谢!!!!!!!!

Schiesser · 1999-10-19

一个替代办法： 将函数体在程序中设定好，其功能由一个特定的index决定；将index放入数据库；根据用户的输入翻译成index，再用case在程序中实现不就行了？

menxin · 1999-10-19

你的问题还是关于宏替换的问题，无法实现。完全可以通过参数传递实现你的要求！ 象Schiesser说的那样。 procedure myproc(index:integer); begin  ...  case index of   1://proc 1;   2://proc 2;   ...  end; end; 在程序中调用： ... myproc(table1.fieldbyname('index').asinteger); ...

amo · 1999-10-19

对，直接用函数名是不行的。 你还可以用一个联合类型，如：   TMyFunc = (func1,func2,func3);     然后定义一个数组：   ArryFunc:=array [func1..func3] of pointer; 然后再用。

cAkk · 1999-10-19

直接用函数名可以的: 举例: 将procedure abc定义在form的publish部分,然后: procedure TForm1.abc; begin  showmessage('ok'); end; procedure TForm1.FormCreate(Sender: TObject); var f

rocedure; begin f:=self.MethodAddress('abc'); f; end;

dj · 1999-10-19

我们要求实现类foxprox宏替换(&amp

的形式. 因此回答问题不接受. 请另外提供方法.

dj · 1999-10-19

'publish',是否是PUBLIC? 使用MethodADDress方法不行,出现错误Access violation at address 00009 ,write of ad 70452980,请 ,请给出新的方法

dj · 1999-10-19

请问 F 是否能定义成函数,用于传递参数?

cAkk · 1999-10-19

我的例子就是实现你的功能的呀!再给你写的明白点吧! 用这个函数实现你的功能,参数是你要调用的函数名(前提是被调用函数必须定义在 publish部分) procedure MRun(FuncName:string) var f

rocedure; begin   f:=self.MethodAddress(FuncName);   f;   end;

dj · 1999-10-19

你好:   请问在你的回答中,f在PUBLISH的定义中是否可以procedure或function,如果 是函数,那能否传递参数,请问如何实现?   我们用上述方法,对于procedue,可以实现,而定义成函数时,出现错误 Access violation at address 00009 ,write of ad 70452980, 请给于回答.如可能请提供详细的源代码的例子,谢谢!!!

cytown · 1999-10-19

这样的思路: function foxmicro(s:string,k:array of varient):varient; var   f:function;   i:integer;   function test1(i:integer,j:integer):integer;   begin     result:=i+j;   end; begin   f:=self.methodaddress(s);   result:=nil;   if f<>nil then   begin     i:=high(k);     select i     case 0:       result:=f;     case 1:       result:=f(k[0]);     case 2:       result:=f(k[0],k[1]);     .....     end;   end; end;

dj · 1999-10-19

FUNCTION数据类型不存在,编译错误,能否给出已编译成功的实例, 最好是比较完整的程序

cytown · 1999-10-19

呵呵, 换procedure试试

dj · 1999-10-19

我们需要定义函数类的变量,急需!!!

如何动态调用自定义函数?(200分)

dj

Unregistered / Unconfirmed

Schiesser

Unregistered / Unconfirmed

menxin

Unregistered / Unconfirmed

amo

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

dj

Unregistered / Unconfirmed

dj

Unregistered / Unconfirmed

dj

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

dj

Unregistered / Unconfirmed

cytown

Unregistered / Unconfirmed

dj

Unregistered / Unconfirmed

cytown

Unregistered / Unconfirmed

dj

Unregistered / Unconfirmed

Similar threads