IVZDataArray.Add

Синтаксис Fore

Add(Value: Variant): Integer;

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

Add(Value: System.Object): System.Int32;

Параметры

Value. Новый элемент массива данных.

Описание

Метод Add добавляет в массив данных новый элемент.

Пример Fore

Модуль, в котором размещается пример, должен иметь ссылку на системную сборку Visualizators.  Указанная процедура должна вызываться из точки входа Main.

Создадим новый массив данных и добавим в него элементы. Выведем размер массива, вставим новый элемент в позицию с индексом 2 методом InsertAt и выведем его, выведем размер массива. Удалим элемент с индексом 2 методом Remove и выведем размер массива. Очистим массив методом Clear и выведем его размер:

Sub UserProc;
Var
    Array: IVZDataArray; // Массив данных
Begin
    // Создадим новый массив и добавим в него элементы
    Array := New VZDataArray.Create;
    Array.Add("Элемент1");
    Array.Add("Элемент2");
    Array.Add("Элемент3");
    // Выведем размер массива
    Debug.WriteLine("Размер массива: " + Array.Count.ToString);
    // Выведем элемент массива с индексом 2
    Debug.WriteLine("Элемент массива с индексом 2: " + Array.Item(2));
    // Добавим новый элемент в массив в позицию 2 
    Array.InsertAt(2,"Элемент4");
    Debug.WriteLine("Элемент добавлен");
    // Выведем элемент массива с индексом 2
    Debug.WriteLine("Элемент массива с индексом 2: " + Array.Item(2));
    // Выведем размер массива
    Debug.WriteLine("Размер массива: " + Array.Count.ToString);
    // Удалим элемент массива
    Array.Remove(2);
    Debug.WriteLine("Элемент удален");
    // Выведем размер массива
    Debug.WriteLine("Размер массива: " + Array.Count.ToString);
    // Очистим массив
    Array.Clear;
    Debug.WriteLine("Массив очищен");
    // Выведем размер массива
    Debug.WriteLine("Размер массива: " + Array.Count.ToString);
End Sub UserProc;

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

Размер массива: 3

Элемент массива с индексом 2: Элемент3

Элемент добавлен

Элемент массива с индексом 2: Элемент4

Размер массива: 4

Элемент удален

Размер массива: 3

Массив очищен

Размер массива: 0

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Visualizators;

...

Public Shared Sub Main(Params: StartParams);
Var
    Array: IVZDataArray; // Массив данных
    Type: VisualizatorDataArrayType; // Тип массива данных
Begin
    // Создадим новый массив и добавим в него элементы
    Array := New VZDataArray.Create();
    Array.Add("Элемент1");
    Array.Add("Элемент2");
    Array.Add("Элемент3");
    // Выведем размер массива
    System.Diagnostics.Debug.WriteLine("Размер массива: " + Array.Count.ToString());
    // Выведем элемент массива с индексом 2
    System.Diagnostics.Debug.WriteLine("Элемент массива с индексом 2: " + Array.Item[2]);
    // Добавим новый элемент в массив в позицию 2
    Array.InsertAt(2, "Элемент4");
    System.Diagnostics.Debug.WriteLine("Элемент добавлен");
    System.Diagnostics.Debug.WriteLine("Элемент массива с индексом 2: " + Array.Item[2]);
    System.Diagnostics.Debug.WriteLine("Размер массива: " + Array.Count.ToString());
    // Удалим элемент массива
    Array.Remove(2);
    System.Diagnostics.Debug.WriteLine("Элемент удален");
    System.Diagnostics.Debug.WriteLine("Размер массива: " + Array.Count.ToString());
    // Очистим массив
    Array.Clear();
    System.Diagnostics.Debug.WriteLine("Массив очищен");
    System.Diagnostics.Debug.WriteLine("Размер массива: " + Array.Count.ToString());
End Sub;

См. также:

IVZDataArray