盒子论坛 v2.1

有个简单问题请教高手：
a:=strtoint(Edit1.text)
b:=strtoint(Etit2.text)
Edit3.text是一个公式，如a*b
c由Edit3.txt的公式算出
得到c结果的程序怎么写啊？
----------------------------------------------
-

作者：

restboy (枫☆白水煮大虾)	★☆☆☆☆	-
	盒子活跃会员

2004/6/9 14:36:57

1楼：

这里有个计算器的源码，下来自己研究下吧。。。
----------------------------------------------
夫君子之行,静以修身,俭以养德.非澹泊无以明志,
非宁静无以致远.夫学须静也,才须学也,非学无以广才,
非志无以成学,淫漫则不能励精,险躁则不能治性,年与时驰,
意与日去,遂成枯落,多不接世,悲守穷庐,将复何及!

作者：

jevons (jevons)	★☆☆☆☆	-
	盒子活跃会员

2004/6/9 15:02:52

2楼：

哪里有例子啊？多谢
----------------------------------------------
-

作者：

cxhld101024 (cxhld)	★☆☆☆☆	-
	普通会员

2004/6/9 17:07:39

3楼：

procedure TForm1.Button2Click(Sender: TObject);
var
  i,i1,i2:integer;
begin
  i1:=0;
  i2:=0;
  try
    for i:=1 to length(edit1.text) do
      begin
          if copy(edit1.text,i,1)='*' then
             begin
                 i1:=strtoint(copy(edit1.text,1,i-1));
                 i2:=strtoint(copy(edit1.text,i+1,length(edit1.text)-i));
             end;
      end;
    edit2.text:=inttostr(i1*i2);
  except
  end;
end;
----------------------------------------------
-

作者：

jevons (jevons)	★☆☆☆☆	-
	盒子活跃会员

2004/6/9 17:50:41

4楼：

多谢！！这个想法我也想过
但是如果我的公式比较复杂点的话就比较麻烦了，包括+-*/和括号就很复杂了
我想有没有什么控件可以直接调用：）
----------------------------------------------
-

作者：

cxhld101024 (cxhld)	★☆☆☆☆	-
	普通会员

2004/6/10 9:03:39

5楼：

那为什么不自己把这个控件写出来呢，还可以方便别人：）

----------------------------------------------
-

作者：

jijiang (jijiang)	★☆☆☆☆	-
	盒子活跃会员

2004/6/10 10:27:37

6楼：

利用sql语句
procedure TForm1.Button2Click(Sender: TObject);
var
Query:TQuery;

begin
  Query:=TQuery.Create();
  try
    with Query do
     begin
       close;
       sql.clear;
       sql.add('select '+Edit1.text+Edit3.text+Edit2.Text' as jieguo from titles);
       open;
    end;
  except
    Showmessage('表达式有错！');
  end;
  edit4.text:=Query.fieldbyname('jieguo').asstring;
end;
这是我随便写的，可能有问题
----------------------------------------------
-

信息

登陆以后才能回复