IEmHistory.ActiveItem

Синтаксис Fore

ActiveItem: Integer;

Синтаксис Fore.NET

ActiveItem: integer;

Описание

Свойство ActiveItem возвращает индекс текущей записи в истории расчётов.

Пример Fore

Для выполнения примера добавьте ссылку на системную сборку «Modeller».

Пример является процедурой, содержащей один входной параметр: «ExprMod» - объект, определяющий параметры экспресс-моделирования.

Sub GetHist(ExprMod: IExpressModeller);
Var
    History: IEmHistory;
    i: Integer;
    HisItem: IEmHistoryItem;
Begin
    History := ExprMod.History;
    If History.Count > 0 Then
        For i := 0 To History.ActiveItem Do
            History.Undo;
        End For;
        HisItem := History.Item(0);
        If HisItem.Method = EmStatMethod.Statistics Then
            History.Redo;
        End If;
    End If;
End Sub GetHist;

Результат выполнения примера: выполняется перемещение по истории расчётов методов экспресс-моделирования, указанного во входном параметре. Сначала осуществляется переход к первому рассчитанному методу, если это метод «Расчёт статистических характеристик», то выполняется переход ко второму методу.

Пример Fore.NET

Imports Prognoz.Platform.Interop.Modeller;
…
Public Shared Sub GetHist(ExprMod: IExpressModeller);
Var
    History: IEmHistory;
    i: Integer;
    HisItem: IEmHistoryItem;
Begin
    History := ExprMod.History;
    If History.Count > 0 Then
        For i := 0 To History.ActiveItem Do
            History.Undo();
        End For;
        HisItem := History.Item[0];
        If HisItem.Method = EmStatMethod.emsmStatistics Then
            History.Redo();
        End If;
    End If;
End Sub GetHist;

См. также: