* Fix Bug ID #35759

git-svn-id: trunk@42280 -

packages/fcl-db/src/dbase/dbf_prscore.pas

@@ -331,6 +331,7 @@ begin
     ExprTree := nil;
     ExpColl := TExprCollection.Create;
     try
+      FConstantsList.FreeAll; 
       //    FCurrentExpression := anExpression;
       ParseString(AnExpression, ExpColl);
       Check(ExpColl);