pl/sql 集合代码 的遍历方式

-- Created on 2011-10-12 by HUCHANGKUN 
declare 
  -- Local variables here
  i integer;
  V_LIST RECORDLIST := RECORDLIST();


  TYPE RECORD_OBJ IS RECORD(
       ID INTEGER,
       NAME LONG
  );

  V RECORD_OBJ;
/*不加的话就要变成：
declare
type tabletype1 is table of varchar2(9);
  table1 tabletype1=tabletype1();
begin   
  tabletype1.extend;
  table1(1):='成都市';
  tabletype1.extend;
  table1(2):='北京市';
end;
也就是说，加了index by binary_integer;tabletype1 类型的下标就是自增长的，tabletype1 类型在插入元素时，不需要初始化，不需要每次extend增加一个空间。


这个不是数组，是哈希
可以理解为一张表，只有两个字段 KEY,VALUE
KEY是主键，是唯一的，KEY的数据类型就是 INDEX BY XXX
*/
  --嵌套表 、 索引表、变长数组
  TYPE RECORD_OBJ_LIST IS TABLE OF RECORD_OBJ; --index by binary_integer;
  V_RECORD_OBJ_LIST RECORD_OBJ_LIST := RECORD_OBJ_LIST();
  --V_RECORD_OBJ_LIST RECORD_OBJ_LIST ;
  TYPE RECORD_ARRAY IS VARRAY(10) OF RECORD_OBJ;
  V_ARRAY RECORD_ARRAY := RECORD_ARRAY();
begin
  -- Test statements here
  FOR I IN 1 .. 10 LOOP
      V_LIST.EXTEND;
      V_LIST(I) := ITEMRECORD(I,I||'NAME');

      V_ARRAY.EXTEND;
      V.ID := I;
      V.NAME := 'NAME'||I;
      V_ARRAY(I) := V;
  END LOOP;

  FOR I IN 1 .. V_LIST.COUNT LOOP
      DBMS_OUTPUT.put_line('ID: '|| V_LIST(I).ID || ' NAME:' || V_LIST(I).NAME);
  END LOOP;

  FOR I IN 1 .. 20 LOOP
      V_RECORD_OBJ_LIST.EXTEND;
      V.ID := I;
      V.NAME := 'NAME'||I;
      V_RECORD_OBJ_LIST(I) := V;
  END LOOP;

  V_RECORD_OBJ_LIST.delete(3);

  FOR I IN V_RECORD_OBJ_LIST.FIRST .. V_RECORD_OBJ_LIST.LAST LOOP
      --if V_RECORD_OBJ_LIST(3) is null then
       --  dbms_output.put_line();
      --else 
      IF I<>3 THEN  
         DBMS_OUTPUT.put_line('ID:'||V_RECORD_OBJ_LIST(I).ID || ' NAME:'||V_RECORD_OBJ_LIST(I).NAME);   
      end if;
  END LOOP;

  DBMS_OUTPUT.put_line(V_RECORD_OBJ_LIST.COUNT);
  i:=V_RECORD_OBJ_LIST.FIRST;
  WHILE I IS NOT NULL
  LOOP
        DBMS_OUTPUT.put_line(V_RECORD_OBJ_LIST(I).ID);
        I := V_RECORD_OBJ_LIST.NEXT(I);
  END LOOP;
  DBMS_OUTPUT.put_line('-----------------');

  --对于可变数组来说是不可以删除
  --i:=V_ARRAY.TRIM;
  DBMS_OUTPUT.put_line('删除之前的数组长度'||V_ARRAY.COUNT);
  V_ARRAY.TRIM;
 DBMS_OUTPUT.put_line('删除之前的数组长度'||V_ARRAY.COUNT);
  i:=V_ARRAY.FIRST;
  LOOP 
   EXIT WHEN I IS NULL;
   DBMS_OUTPUT.put_line(V_ARRAY(I).ID);
   I:= V_ARRAY.NEXT(I);
  END LOOP;

  EXCEPTION 
            WHEN OTHERS THEN
            DBMS_OUTPUT.put_line(SQLCODE||'_'||SQLERRM);
end;