IMsProblemScenarios.FindByKey

Синтаксис

FindByKey(ScenarioKey: Integer): IMsScenario;

Параметры

ScenarioKey. Ключ сценария.

Описание

Метод FindByKey осуществляет поиск сценария в коллекции сценариев задачи моделирования. Ключ сценария, по которому осуществляется поиск, передается посредством параметра ScenarioKey.

Пример

Sub Main;

Var

MB: IMetabase;

MObj: IMetabaseObject;

KMSpace: IMsModelSpace;

Problem: IMsProblem;

ProbScen: IMsProblemScenarios;

Scen: IMsScenario;

Begin

MB := MetabaseClass.Active;

MObj := MB.ItemByIdNamespace("PROBLEM_1", MB.ItemById("KONT_MODEL").Key).Edit;

KMSpace := MB.ItemById("KONT_MODEL").Bind As IMsModelSpace;

Problem := MObj As IMsProblem;

ProbScen := Problem.Scenarios;

Scen := ProbScen.FindByKey((KMSpace.Scenarios.Item(0) As IMetabaseObject).Key);

If Scen = Null Then

ProbScen.AddScenario(KMSpace.Scenarios.Item(0));

End If;

MObj.Save;

End Sub Main;

После выполнения примера в коллекции сценариев задачи моделирования "PROBLEM_1" будет осуществлен поиск первого сценария контейнера моделирования. В случае неудачного поиска данный сценарий будет добавлен в коллекцию.

См. также:

IMsProblemScenarios