Example #1
0
        internal override object Evaluate(TParsedTokenList FTokenList, TWorkbookInfo wi, TBaseAggregate f, TCalcState STotal, TCalcStack CalcStack)
        {
            TValueAndXF val = new TValueAndXF();

            val.FullDataSetColumnIndex = wi.FullDataSetIndex;
            val.Workbook   = wi.Xls;
            val.DebugStack = wi.DebugStack;
            Data.Evaluate(wi.Row, wi.Col, wi.RowOfs, wi.ColOfs, val);
            return(ConvertToAllowedObject(val.Value));
        }
Example #2
0
        internal TRPNExpression(string Condition, ExcelFile Xls, TBand CurrentBand, FlexCelReport fr, TStackData Stack)
        {
            if (Condition != null && !Condition.StartsWith(TFormulaMessages.TokenString(TFormulaToken.fmStartFormula)))
            {
                Condition = TFormulaMessages.TokenString(TFormulaToken.fmStartFormula) + Condition;
            }

            TFormulaConvertTextWithTagsToInternal Parser = new TFormulaConvertTextWithTagsToInternal(Xls, Condition, CurrentBand, fr, Stack);

            wi = new TWorkbookInfo(Xls, Xls.ActiveSheet, 0, 0, 0, 0, 0, 0, false);
            Parser.Parse();
            Fmla = Parser.GetTokens();
        }