IAlgorithmCalculationResult.ChangedPoints

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObjectDescriptor;
    Algo: ICalcObject;
    CalcAlgo: ICalcAlgorithm;
    CalcResult: IAlgorithmCalculationResult;
    PointResults: IAlgorithmChangedPointResults;
    PointResult: IAlgorithmChangedPointResult;
    i: Integer;
Begin
    // Get repository
    MB := MetabaseClass.Active;
    // Get calculation algorithm
    MObj := MB.ItemById("ALGORITHM");
    Algo := CalcObjectFactory.CreateCalcObject(MObj, True);
    CalcAlgo := Algo As ICalcAlgorithm;
    // Calculate algorithm
    CalcResult := CalcAlgo.Calculate;
    // Get information about the number of changed data cells
    PointResults := CalcResult.ChangedPoints;
    // Display the number of calculation blocks in the console
    Debug.WriteLine("Number of calculation blocks: " + PointResults.Count.ToString);
    // Display information about each calculation algorithm object in the console
    For i := 0 To PointResults.Count - 1 Do
        // Select calculation algorithm object
        PointResult := PointResults.Item(i);
        // Display calculation block name
        Debug.WriteLine("Calculation block name: " + PointResult.Name);
        // Display calculation block identifier
        Debug.WriteLine("Calculation block identifier: " + PointResult.Id);
        // Display calculation block key
        Debug.WriteLine("Calculation block key: " + PointResult.Key.ToString);
        // Display the number of data cells changed on calculation block execution
        Debug.WriteLine("Number of changed data cells: " + PointResult.ChangedPointsCount.ToString);  
    End For;
End Sub UserProc;