ITimeSeries.IsEmpty

Копировать пример

Function IsEmpty(Input: ITimeSeries): ITimeSeries;
Var
    TsCalc: TsCalculation;
    pContext: ITsCalculationContext;
    i: Integer;
    Output: ITimeSeries;
Begin
    // Проверяем, пустой ли входной ряд
    If Not Input.IsEmpty
        // Если ряд не пустой, то вычисляем его десятичный логарифм
        Then
        TsCalc := New TsCalculation.Create;
            pContext := TsCalc.Current;
            Output := pContext.CreateTimeSeries;
            For i := Input.StartIndex To Input.EndIndex Do
                Output(i) := Math.Log10(Input(i));
            End For;
            // Возвращаем результаты вычислений
            Return Output;
        // Если ряд пустой, то возвращаем его без изменений 
        Else
            Return Input;
    End If;
End Function IsEmpty;