發表文章

目前顯示的是 六月, 2012的文章

[轉]Delphi实现Js中的Eval函数

原文網址:Delphi实现Js中的Eval函数



procedure Eval(Formula: string; { 要計算的表達式 } var Value: Real; { 返回數值 } var ErrPos: Integer); { 錯誤信息 } const Digit: set of Char = ['0'..'9']; var Posn: Integer; { 算式當前位置 } CurrChar: Char; { 算式當前字符 } procedure ParseNext; begin repeat Posn := Posn + 1; if Posn <= Length(Formula) then CurrChar := Formula[Posn] else CurrChar := ^M; until CurrChar <> ' '; end { ParseNext }; function add_subt: Real; var E: Real; Opr: Char; function mult_DIV: Real; var S: Real; Opr: Char; function Power: Real; var T: Real; function SignedOp: Real; function UnsignedOp: Real; type StdFunc = (fabs, fsqrt, fsqr, fsin, fcos, farctan, fln, flog, fexp, ffact); StdFuncList = array[StdFunc] of string[6]; const StdFuncName: StdFuncList =…

[轉]Iterator in Delphi

原文網扯:Iterator in Delphi

有空可以來試試 ^ ^