IMsModelList.MoveTo

Синтаксис

MoveTo(FromIndex: Integer; ToIndex: Integer);

Параметры

FromIndex. Индекс позиции модели, которую необходимо переместить.

ToIndex. Индекс позиции, в которую необходимо переместить модель.

Описание

Метод MoveTo осуществляет перемещение модели в коллекции.

Пример

Для выполнения примера предполагается наличие в репозитории контейнера моделирования с идентификатором «CONT_MODEL». В данном контейнере должна присутствовать система нелинейных уравнений с идентификатором «NON_LINEAR_MODEL», содержащая внешние уравнения.

Sub Main;

Var

mb: IMetabase;

ModelCont: IMetabaseObjectDescriptor;

Model: IMsModel;

Trans: IMsFormulaTransform;

Formula: IMsFormula;

Equations: IMsNonLinearEquationsTransform;

Descript: IMetabaseObjectDescriptor;

ExternalEquations: IMsModelList;

i: Integer;

Begin

mb := MetabaseClass.Active;

ModelCont := mb.ItemById("CONT_MODEL");

Descript := mb.ItemByIdNamespace("NON_LINEAR_MODEL", ModelCont.Key);

Model := Descript.Edit As IMsModel;

Trans := Model.Transform;

Formula := Trans.EquationsFormula;

Equations := Formula.Method As IMsNonLinearEquationsTransform;

ExternalEquations := Equations.ExternalEquations;

i := ExternalEquations.Count;

ExternalEquations.MoveTo(0, i - 1);

(Model As IMetabaseObject).Save;

End Sub Main;

После выполнения примера в системе нелинейных уравнений первое и последнее внешние уравнения будут обменены местами.

См. также:

IMsModelList