如何计算逻辑表达式？

Question

如何计算逻辑表达式？
象这样的：用户输入一个这样的公式，点一按钮，就返回结果：0
=if(mod(A,10)=7,1,0)
其中A为程序要在数据库中取的数值。关键是这里的 IF ，如果只是表达式好办。有控件吗？谢谢了
怎么做最好，自己编函数（可能还会有别的形式的所以通用难），还是有现成的控件可用？

Answer 1

你这是什么表达式？我怎么看不明白呢？
delphi中对应功能的表达可以这样写：
showmessage(inttostr(integer(ifthen(a mod 10=7,1,0))));