IMsTimeMatrix.AddArray

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

Public Function Create(param: IMsTimeMatrix): Variant;
Var 
    m : IMsTimeMatrix;
    arr: Array[3] Of Double;
    i, j: Integer;
    s : String;
    serie : ITimeSeries;
Begin
    m := New MsTimeMatrix.Create;
    arr[0] := 0.10;
    arr[1] := 0.20;
    arr[2] := 0.30;
    m.AddArray(arr);
    Debug.WriteLine("Рядов: " + m.Count.ToString);
    For i := 0 To m.Count - 1 Do
        s := "";
        serie := m.Item(i);
        For j := m.StartIndex To m.EndIndex Do
            s := s + (serie.Item(j) As double).ToString + " ";
        End For;
        Debug.WriteLine("Ряд: " + i.ToString + " - " + s);
    End For;
    Return m;
End Function Create;