1、先定义两个Object
CREATE OR REPLACE TYPE TY_ROLEGROUPFUNCTION      AS OBJECT
(
    col1 char(10) ,
    col2 char(24) 
);

CREATE OR REPLACE TYPE TYT_ROLEGROUPFUNCTIONS   as table of ty_rolegroupfunction;
DECLARE
  -- Local variables here
  l_ty_rolegroupfunction ty_rolegroupfunction := NEW ty_rolegroupfunction(8, 8);

  l_tyt_rolegroupfunctions tyt_rolegroupfunctions := NEW
                                                     tyt_rolegroupfunctions(ty_rolegroupfunction(1
                                                                                                ,2)
                                                                           ,ty_rolegroupfunction(2
                                                                                                ,3)); --定义的时候给数组赋值
BEGIN
  l_tyt_rolegroupfunctions.extend(); --程序中动态复制
  l_tyt_rolegroupfunctions(l_tyt_rolegroupfunctions.count) := l_ty_rolegroupfunction;


  FOR inx IN (SELECT * FROM TABLE(l_tyt_rolegroupfunctions)) -- 读取数组的值
  LOOP
    dbms_output.put_line(inx.rolegroupid);
  END LOOP;
EXCEPTION
  WHEN OTHERS THEN
    dbms_output.put_line(DBMS_UTILITY.FORMAT_Error_BACKTRACE || SQLERRM);
END;