ITsCalculationContext.UserData

Copy example

Public Function CalcFunction(Paramarray arr: array Of Variant): Variant;
Const BREAK_ITERATION = 10; // Possible condition of execution break
Var
    pContext: ITsCalculationContext;
    pUserData: ITsUserData;
    CurrentIteration: Integer;
    MaxIteration: Integer = -1;
Begin
    // Calculation method context and custom data
    pContext := TsCalculation.Current;
    pUserData := pContext.UserData;
    // Check execution conditions
    If pUserData.Contains("CURRENT_ITERATION") Then
        CurrentIteration := pUserData.Data("CURRENT_ITERATION") As Integer;
        Debug.Write("cyclic calculation. ");
        Debug.Write("Iteration: " + CurrentIteration.ToString);
        If pUserData.Contains("MAX_ITERATION") Then
            MaxIteration := pUserData.Data("MAX_ITERATION") As Integer;
            Debug.WriteLine(" from " + MaxIteration.ToString);
        End If;
        If CurrentIteration = 1 Then
            Debug.WriteLine("Interval between iterations: " + (pUserData.Data("ITERATION_INTERVAL") As Integer).ToString + " seconds");
        End If;
        If CurrentIteration = BREAK_ITERATION Then
            pUserData.Data("BREAK_CYCLE") := True;
            Debug.WriteLine("Exit from cycle condition terminated.");
        Elseif CurrentIteration = MaxIteration Then
            pUserData.Data("BREAK_CYCLE") := True;
            Debug.WriteLine("The maximum iteration is reached.");
        Else
            pUserData.Data("BREAK_CYCLE") := False;
        End If;
    End If;
    Return Null;
End Function CalcFunction;