IAlgorithmTimeResult.ExecuteMilisecods

Синтаксис

ExecuteMilisecods: Integer;

Отсутствует;

Описание

Свойство ExecuteMilisecods возвращает время выполнения расчёта объекта.

Пример

Для выполнения примера предполагается наличие в репозитории готового алгоритма расчёта с идентификатором ALGORITHM. В алгоритме расчёта должны содержаться настроенные объекты.

Добавьте ссылку на пользовательскую сборку «Ядро алгоритма расчёта», которая содержится в компоненте «Алгоритмы расчёта», и ссылки на системные сборки: Algo, Metabase.

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObjectDescriptor;
    Algo: ICalcObject;
    CalcAlgo: ICalcAlgorithm;
    CalcResult: IAlgorithmCalculationResult;
    CalcObj: IAlgorithmTimeResults;
    Obj: IAlgorithmTimeResult;
    i: Integer;
    Sec: Double;
Begin
    MB := MetabaseClass.Active;
    // Получим алгоритм расчёта
    MObj := MB.ItemById("ALGORITHM");
    Algo := CalcObjectFactory.CreateCalcObject(MObj, True);
    CalcAlgo := Algo As ICalcAlgorithm;
    // Выполним расчёт алгоритма
    CalcResult := CalcAlgo.Calculate;
    // Получим результат расчёта объектов
    CalcObj := CalcResult.Calc;
    For i := 0 To CalcObj.Count-1 Do
        Obj := CalcObj.Item(i);
        Debug.WriteLine("Наименование: " + Obj.Name);
        Debug.WriteLine("Идентификатор: " + Obj.Id);
        Debug.WriteLine("Ключ: " + Obj.Key.ToString);
        Sec := Obj.ExecuteMilisecods/1000;
        Debug.WriteLine("Время расчёта: " + Sec.ToString + " сек.");
        Debug.WriteLine("");
    End For;
End Sub UserProc;

Не предусмотрен.

В результате выполнения примера будут рассчитаны объекты алгоритма расчёта. В консоль будет выведен результат расчёта, например:

Наименование: Блок расчёта

Идентификатор: CALC

Ключ: 230593

Время расчёта: 0.057 сек.

 

Наименование: Блок контроля

Идентификатор: CONTROL

Ключ: 230831

Время расчёта: 0.018 сек.

См. также:

IAlgorithmTimeResult