浏览代码

* fix #0037235 high(empty open array )= -1

git-svn-id: trunk@45676 -
marco 5 年之前
父节点
当前提交
b624b2a5f5
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/symbolic/src/symbolic.pas

+ 1 - 1
packages/symbolic/src/symbolic.pas

@@ -504,7 +504,7 @@ begin
        try
          Eval:=TEvaluator.Create(Varname,Expr);
          try 
-           if high(variablenames)>0 then
+           if high(variablenames)>=0 then
              begin
                for i:=low(variablenames) to high(variablenames) do
                  begin