IExpressModeller.History

Синтаксис Fore

History: IEmHistory;

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

History: Prognoz.Platform.Interop.Modeller.IEmHistory;

Описание

Свойство History возвращает историю расчётов методов экспресс-моделирования.

Комментарии

История расчёта сохраняется, если при вызове метода IExpressModeller.EvaluateMethod параметр SaveToHistory был установлен в True.

Пример Fore

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

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

Sub GetHistory(ExprMod: IExpressModeller);
Var
    History: IEmHistory;
    i: Integer;
    HisItem: IEmHistoryItem;
    Settings: IEmMethodSettings;
Begin
    History := ExprMod.History;
    If History.Count > 0 Then
        For i := 0 To History.Count - 1 Do
            HisItem := History.Item(i);
            Debug.WriteLine("Расчёт: " + HisItem.Index.ToString);
            Settings := HisItem.Settings;
            Debug.WriteLine("  " + Settings.ReportSettings.Title);
            Debug.WriteLine("  сохранён в файл: " + HisItem.FilePath);
        End For;
        History.Clear;
    End If;
End Sub GetHistory;

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

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Modeller;
…
Public Shared Sub GetHistory(ExprMod: IExpressModeller);
Var
    History: IEmHistory;
    i: Integer;
    HisItem: IEmHistoryItem;
    Settings: IEmMethodSettings;
Begin
    History := ExprMod.History;
    If History.Count > 0 Then
        For i := 0 To History.Count - 1 Do
            HisItem := History.Item[i];
            System.Diagnostics.Debug.WriteLine("Расчёт: " + HisItem.Index.ToString());
            Settings := HisItem.Settings;
            System.Diagnostics.Debug.WriteLine("  " + Settings.ReportSettings.Title);
            System.Diagnostics.Debug.WriteLine("  сохранён в файл: " + HisItem.FilePath);
        End For;
        History.Clear();
    End If;
End Sub GetHistory;

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

См. также:

IExpressModeller