* Fix Bug ID #35759

git-svn-id: trunk@42280 -
2025-04-20 18:09:27 +02:00 · 2019-06-24 10:42:37 +00:00 · 2019-06-24 10:42:37 +00:00 · 4cd5a72d13
commit 4cd5a72d13
parent 16b827aa88
1 changed files with 1 additions and 0 deletions
--- a/packages/fcl-db/src/dbase/dbf_prscore.pas
+++ b/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);