怎样实现这样的功能，在Tedit框内输入5*7+1，回车后框内变为数值36？

在Tedit框内输入计算公式，回车后，框内的值变为计算后的数值。即实现计算功能？请问应如何实现？ 问题点数：30、回复次数：3Top

1 楼jemsn（曙光软件）回复于 2004-05-02 00:21:19 得分 20

//====================================================================  
  //表达式计算  
  //====================================================================  
  procedure   Bracket(mText:   string;   var   nLStr,   nCStr,   nRStr:   string);  
  var  
      L,   R:   Integer;  
      I:   Integer;  
      B:   Boolean;  
  begin  
      nLStr   :=   '';  
      nCStr   :=   '';  
      nRStr   :=   '';  
      B   :=   True;  
      L   :=   0;  
      R   :=   0;  
      for   I   :=   1   to   Length(mText)   do  
          if   B   then   begin  
              if   mText[I]   =   '('   then  
                  Inc(L)  
              else   if   mText[I]   =   ')'   then  
                  Inc(R);  
              if   L   =   0   then  
                  nLStr   :=   nLStr   +   mText[I]  
              else   if   L   >   R   then  
                  nCStr   :=   nCStr   +   mText[I]  
              else   B   :=   False;  
          end   else   nRStr   :=   nRStr   +   mText[I];  
      Delete(nCStr,   1,   1);  
  end;   {   Bracket   }  
   
  function   Calc(mText:   string):   string;  
  var  
  vText:   string;  
   
      function   fCalc(mText:   string):   string;  
      var  
          vLStr,   vCStr,   vRStr:   string;  
          I,   J,   K,   L:   Integer;  
      begin  
          L   :=   Length(mText);  
          if   Pos('(',   mText)   >   0   then   begin  
              Bracket(mText,   vLStr,   vCStr,   vRStr);  
              Result   :=   fCalc(vLStr   +   fCalc(vCStr)   +   vRStr);  
          end   else   if   (Pos('+',   mText)   >   0)   or   (Pos('-',   mText)   >   0)   then   begin  
              I   :=   Pos('+',   mText);  
              J   :=   Pos('-',   mText);  
              if   I   =   0   then   I   :=   L;  
              if   J   =   0   then   J   :=   L;  
              K   :=   Min(I,   J);  
              vLStr   :=   Copy(mText,   1,   Pred(K));  
              vRStr   :=   Copy(mText,   Succ(K),   L);  
              if   vLStr   =   ''   then   vLStr   :=   '0';  
              if   vRStr   =   ''   then   vRStr   :=   '0';  
              if   I   =   K   then  
                  Result   :=   FloatToStr(StrToFloat(fCalc(vLStr))   +   StrToFloat(fCalc(vRStr)))  
              else   Result   :=   FloatToStr(StrToFloat(fCalc(vLStr))   -   StrToFloat(fCalc(vRStr)))  
          end   else   if   (Pos('*',   mText)   >   0)   or   (Pos('/',   mText)   >   0)   then   begin  
              I   :=   Pos('*',   mText);  
              J   :=   Pos('/',   mText);  
              if   I   =   0   then   I   :=   L;  
              if   J   =   0   then   J   :=   L;  
              K   :=   Min(I,   J);  
              vLStr   :=   Copy(mText,   1,   Pred(K));  
              vRStr   :=   Copy(mText,   Succ(K),   L);  
              if   vLStr   =   ''   then   vLStr   :=   '0';  
              if   vRStr   =   ''   then   vRStr   :=   '0';  
              if   I   =   K   then  
                  Result   :=   FloatToStr(StrToFloat(fCalc(vLStr))   *   StrToFloat(fCalc(vRStr)))  
              else   Result   :=   FloatToStr(StrToFloat(fCalc(vLStr))   /   StrToFloat(fCalc(vRStr)))  
          end   else   if   Pos('_',   mText)   =   1   then  
              Result   :=   FloatToStr(-StrToFloat(fCalc(Copy(mText,   2,   L))))  
          else   Result   :=   FloatToStr(StrToFloat(mText));  
      end;  
   
  var  
      I,   L:   Integer;  
  begin  
      vText   :=   '';  
      L   :=   Length(mText);  
      for   I   :=   1   to   L   do  
          if   (mText[I]   =   '-')   and   (I   <   L)   and   (not   (mText[Succ(I)]   in   ['+',   '-',   '(',   ')']))   then  
              if   (I   =   1)   or   ((I   >   1)   and   (mText[Pred(I)]   in   ['*',   '/']))   then  
                  vText   :=   vText   +   '_'  
              else   if   ((I   >   1)   and   (mText[Pred(I)]   in   ['+',   '-']))   or  
                  ((I   >   1)   and   (mText[Pred(I)]   =   ')')   and   (I   <   L)   and  
                  (not   (mText[Succ(I)]   in   ['+',   '-',   '(',   ')'])))   then  
                  vText   :=   vText   +   '+_'  
              else   vText   :=   vText   +   mText[I]  
          else   vText   :=   vText   +   mText[I];  
      Result   :=   fCalc(vText);  
  end;   {   Calc   }  
   
   
  例:   edit1.text   :=   calc(5*7+1);Top

2 楼miky（miky）回复于 2004-05-02 00:33:35 得分 5

uses   comobj;  
   
   
  procedure   TForm1.Edit1KeyPress(Sender:   TObject;   var   Key:   Char);  
  var  
      vScript:   Variant;  
      str:string;  
  begin  
      if   key   =   #13   then  
      begin  
          str:=Edit1.Text;  
          vScript:=CreateOleObject('ScriptControl');  
          vScript.Language   :=   'JavaScript';  
          str:=vScript.Eval(str);  
          Edit1.Text   :=   str;  
      end;  
  end;Top

3 楼ly_liuyang（Liu Yang LYSoft http://lysoft.7u7.net）回复于 2004-05-02 00:54:14 得分 5

公式计算,例子有很多  
  用ScriptControl比较简单，但功能有限Top

相关问题

• mtext
• 框内
• ncstr
• nlstr
• nrstr
• vlstr
• vcstr
• fcalc
• bracket
• 实现

• 帖主：jhzhao2001
• jemsn
• miky
• ly_liuyang

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载