【结贴】有现成的计算数字表达式函数吗**

kitchan

例如
func('3*(2+1)/3') 返回值为3，支持四则运算加括号就OK了

yancm

没

yancm

恩，可以通过业务参数来间接实现。
procedure TMainForm.Button11Click(Sender: TObject);
var
  lParam: TBizParam;
  lBizURL: TBizURL;
  lContextCurrent: TContextCurrent;
begin
  lBizURL := TBizURL.Create;
  lContextCurrent := TContextCurrent.Create(Context);
  try
    lBizURL.URL := 'Biz:\YANCMPRIVATE\DICT\YWCSZ1.ParamGroup';
    lParam := lContextCurrent.GetParam(lBizURL,'YWCS1');
    lParam.Expression.Text:='1+1';
    Memo1.Lines.Add(lParam.value.ToString);
  finally
    lBizURL.Free;
  end;

kitchan

这样在没有Contextr的时候就无法使用了，我还是用数据库SQL来计算吧

yancm

分享一下方法吧