由於在報表製作或是薪資計算等問題時, user有時希望能更改計算公式, 在不希望安裝任何元件之前題下完成本程式    1. 簡單之使用例

var eq:TEqParser;
  v:double;
begin
  eq:=TEqParser.createFromStr('a b^2 a*c cos(x) arccos(y)'); //以字串建立equation 
  try
    v:=eq.calc([2,3,4,0,1]); //依equation中變數出現順序傳入參數完成計算
  finally
    eq.free;
  end;
end;

2. 上例也可用變數名稱

    eq.Values['a']:=2;
    eq.Values['b']:=3;
    eq.Values['c']:=4;
    eq.Values['x']:=0;
    eq.Values['y']:=1;
    v:=eq.calc;

3. 所附程式中EQParser.pas 為實際class所在, 其餘僅為測試用 4. 有兩個Constructor,故希望安裝成元件的也可自行安裝 5. 程式剛完成, 測試不足, 有任何問題請通知我 6. Demo中之Tree為檢視equation之結構, 沒有實際用處

附加檔案：23520_EqParser.rar

引言: 由於在報表製作或是薪資計算等問題時, user有時希望能更改計算公式, 在不希望安裝任何元件之前題下完成本程式 1. 簡單之使用例

var eq:TEqParser;
  v:double;
begin
  eq:=TEqParser.createFromStr('a+b^2+a*c+cos(x)+arccos(y)'); //以字串建立equation 
  try
    v:=eq.calc([2,3,4,0,1]); //依equation中變數出現順序傳入參數完成計算
  finally
    eq.free;
  end;
end;

2. 上例也可用變數名稱

    eq.Values['a']:=2;
    eq.Values['b']:=3;
    eq.Values['c']:=4;
    eq.Values['x']:=0;
    eq.Values['y']:=1;
    v:=eq.calc;

3. 所附程式中EQParser.pas 為實際class所在, 其餘僅為測試用 4. 有兩個Constructor,故希望安裝成元件的也可自行安裝 5. 程式剛完成, 測試不足, 有任何問題請通知我 6. Demo中之Tree為檢視equation之結構, 沒有實際用處

真是好強的程式喔! 站長也有寫過類似的,但功能沒這麼強! 不錯不錯! 但是發現一個BUG,請見: 不知是否我操作不當造成? ～～～Delphi K.Top討論區站長～～～

但是發現一個BUG,請見: arccos之參數為5當然是invalid floating (須在 -1到 1 之間)

引言: 但是發現一個BUG,請見: arccos之參數為5當然是invalid floating (須在 -1到 1 之間)

Sorry,未詳察arccos()函式! ～～～Delphi K.Top討論區站長～～～

感謝ccchen的這個元件，可使我的程式更加好維護。 但因個人之需求，小弟提出一個小小的建議，就是更新公式時，是否能將VarList清空重新取得新的參數? 另外再增加一個參數表, 可使程式更加方便, 雖然我可以由VarList取得參數名稱。 再次感謝您無私的提供此一元件。

可否将程式再扩展一下，来解析条件判断语句。如if else 那就更完美了。

为什么下载不到的呢？
show that high security

我用的方法很詐，就是交給 DB server 來計算
以 SQL Server 為例

DECLARE @X FLOAT
DECLARE @Y FLOAT
DECLARE @A FLOAT
DECLARE @B FLOAT
DECLARE @C FLOAT
SET @X = :X
SET @Y = :Y
SET @A = :A
SET @B = :B
SET @C = :C
SELECT @A POWER(@B, 2) @A*@C COS(@X) ACOS(@Y)

搞定
更爽的是，SQL Server 的 ROUND 函數，是國人習慣的「四捨五入」而不是「四捨六入五成雙」

------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/

編輯記錄