IVZLongArray.Add

Синтаксис Fore

Add(Value: Integer): Integer;

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

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

Параметры

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

Описание

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

Пример Fore

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

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

Sub UserProc;
Var
    Array: IVZLongArray; // Массив длинных целых чисел
    i: Integer; // Счетчик
    Sum: Double; // Сумма элементов
Begin
    // Создадим новый массив и добавим в него элементы
    Array := New VZLongArray.Create;
    Array.Add(50535648);
    Array.Add(60145664);
    Array.Add(70445645);
    // Вставим новый элемент в позицию с индексом 2
    Array.InsertAt(2, 80447321);
    // Удалим элемент в позиции с индексом 0
    Array.Remove(0);
    // Выведем значение элемента в позиции с индексом 2
    Debug.WriteLine("Элемент в позиции с индексом 2: " + Array.Item(2).ToString);   
    // Выведем сумму всех элементов массива
    Sum := 0;
    For i := 0 To Array.Count - 1 Do
        Sum := Sum + Array.Item(i);
    End For;
    Debug.WriteLine("Сумма всех элементов массива: " + Sum.ToString);
    // Очистим массив
    Array.Clear;
    // Выведем размер массива
    Debug.WriteLine("Размер массива после очистки: " + Array.Count.ToString);
End Sub UserProc;

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

Элемент в позиции с индексом 2: 70445645

Сумма всех элементов массива: 211038630

Размер массива после очистки: 0

Пример Fore.NET

Указанная процедура является точкой входа Main в модуле Program .NET-сборки. В данный модуль должна быть импортирована сборка Visualizators из системной сборки Prognoz.Platform.Interop.

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

Public Shared Sub Main(Params: StartParams);
Var
    Array: IVZLongArray; // Массив длинных целых чисел
    i: Integer; // Счетчик
    Sum: Double; // Сумма элементов
Begin
    // Создадим новый массив и добавим в него элементы
    Array := New VZLongArray.Create();
    Array.Add(50535648);
    Array.Add(60145664);
    Array.Add(70445645);
    // Вставим новый элемент в позицию с индексом 2
    Array.InsertAt(2, 80447321);
    // Удалим элемент в позиции с индексом 0
    Array.Remove(0);
    // Выведем значение элемента в позиции с индексом 2
    System.Diagnostics.Debug.WriteLine("Элемент в позиции с индексом 2: " + Array.Item[2].ToString());  
    // Выведем сумму всех элементов массива
    Sum := 0;
    For i := 0 To Array.Count - 1 Do
        Sum := Sum + Array.Item[i];
    End For;
    System.Diagnostics.Debug.WriteLine("Сумма всех элементов массива: " + Sum.ToString());
    // Очистим массив
    Array.Clear();
    // Выведем размер массива
    System.Diagnostics.Debug.WriteLine("Размер массива после очистки: " + Array.Count.ToString());
End Sub Main;

Результат выполнения примера аналогичен результату, полученному после выполнения примера для языка Fore.

См. также:

IVZLongArray