declare --Опишем тип массива
type arr_type is table of varchar2(64) --Ключ массива
index by binary_integer;
--Создадим сам массив
arr arr_type;
--Переменную для элементов массива
a binary_integer;
begin --Добавим элементы в массив
arr(1) := 'Elem1';
arr(2) := 'Elem2';
arr(3) := 'Elem3';
--Удалить один элемент из массива с индексом 2
arr.delete(2);
--Проверим есть ли элемент с индексом 2
dbms_output.put_line('Elem2 ' || case when arr.exists(2) then 'exists' else 'not exist' end);
--Количество элементов в массиве
dbms_output.put_line('Number of elements = ' || arr.count);
--Перебор массива с первого по последнее значение
--Комментарии в скобках для варианта в обратную сторону
--Индекс первого элемента (либо last для обратного перебора)
a := arr.first;
loop
dbms_output.put_line('Element = ' || arr(a)); --Выход по достижении последнего элемента(либо first для обратного перебора)
exit when a = arr.last; --Получаем следующее значение(либо prior для обратного перебора)
a := arr.next(a);
end loop;
end;
Комментарии пользователей
Эту новость ещё не комментировалиНаписать комментарий
Анонимам нельзя оставоять комментарии, зарегистрируйтесь!