在DELPHI中怎样实现,传递函数,例如:
myFunc(trim,myEdit.text)
执行的操作就是trim(MyEdit.text)?

解决方案 »

  1.   

    控件DreamScript这个需要下载,还有系统中有一个msScript的ActiveX控件,引入就可以把basic script让它执行了
    如果你真的想自己实现,那就写一个解释器好了
    比如:
    myFunc(aFuncName, aParams)
      if aFuncName = 'trim' then
        result := trim(aParams)
      else if
        .....
      end;当然这是一个很蠢的程序了,千万不要象这样去实现一个解释器,这里只是用最简单的方式表示一下一种可行的方法
      

  2.   

    我也想知道這個結果????
    能將業備邏輯寫在.dfm或.ini中嗎????