delphi 运算符号的赋值为题

Question

比如读取kk数据库中运算符号表 有可能得到的字符串是>、>=、=、<、<=那么假设得到的字符串是<=,那么赋值给edit1。edit1.text:='<=';现在想完成如下判断if 5edit1.text6 then showmessage('正确');请问怎么写代码才可以实现？

Answer 1

这个意思吗?if edit1.text='<=' then 
showmessage('正确')

Answer 2

好纠结的问题。。没明白“5edit1.text6”

Answer 3

不是的 当我读取KK数据库运算符号表得到的字符串是‘<=’即小于等于号，我就将小于等于号赋值给edit1。我就用来做IF语句的判断 比如if 5 edit1.text 6 then (如果5小于等于6) showmessage('正确');

Answer 4

没有这样的写法，不过可以这样:if edit1.text='<=' then
begin
  if 5<=6 then
    showmessage('正确')
  else
  ...
end else if edit1.text='=' then
begin
  ...
end else
...

Answer 5

明白楼主意思了，楼主要的是Delphi程序实现类似计算器的功能。
以前写过，在家里电脑上。楼主留个邮箱吧。识别运算符，然后自动处理技术，应该和楼主的要求类似。
kaikai_kk善于挖掘需求，赞一个~~~~

Answer 6

谢谢了 我邮箱是[email protected]

Answer 7

我邮箱 [email protected] LZG827谢谢了

Answer 8

我邮箱 [email protected] LZG827谢谢了

Answer 9

用解释型脚本进行计算,JavaScript或者Delphi开源的脚本有2个，都可以。没开源的就多了

Answer 10

1。RemObjects Pascal Script
这个效率最高，不过文件太多，想要很好使用要花点时间2。delphi notes
这个我没用过，不作评价不要说一行表达式计算了，完整一段代码（文本）都可以被解释执行。

Answer 11

楼主是想实现宏替换吧,可惜Pascal不是解释语言,这个解释器得自己完成