SaveHistoryMask: MsCalculationHistorySet;
Свойство SaveHistoryMask определяет параметры ведения журнала расчета задачи моделирования.
На значение данного свойства влияет свойство IMsProblemCalculation.SaveHistory. Если свойству IMsProblemCalculation.SaveHistory установить значение True, то SaveHistoryMask примет значение MsCalculationHistorySet.Full.
Значение данного свойства также влияет на свойство IMsProblemCalculation.SaveHistory. Если для значения SaveHistoryMask установить любой тип MsCalculationHistorySet, кроме MsCalculationHistorySet.None, то IMsProblemCalculation.SaveHistory автоматически принимает значение True. Если в качестве значения SaveHistoryMask установить MsCalculationHistorySet.None, то IMsProblemCalculation.SaveHistory принимает значение False.
Для выполнения примера предполагается наличие в репозитории контейнера моделирования с идентификатором «KONT_MODEL». В данном контейнере должна содержаться задача с идентификатором «PROBLEM_1».
Sub Main;
Var
MB: IMetabase;
MObj: IMetabaseObject;
Problem: IMsProblem;
CalcSett: IMsProblemCalculationSettings;
Calculation: IMsProblemCalculation;
Begin
MB := MetabaseClass.Active;
MObj := MB.ItemByIdNamespace("PROBLEM_1", MB.ItemById("KONT_MODEL").Key).Edit;
Problem := MObj As IMsProblem;
CalcSett := Problem.CreateCalculationSettings;
Calculation := Problem.Calculate(CalcSett);
Calculation.SaveHistory := True;
Calculation.SaveHistoryMask := MsCalculationHistorySet.Log
Calculation.Run;
MObj.Save;
End Sub Main;
После выполнения примера будет осуществлен расчет задачи с идентификатором «PROBLEM_1». История расчета будет сохранена только в виде журнала.
См. также: