create or replace function my_test(p_str varchar2)return numberas--普通变量v_var varchar2(1000);--固定长度数组type v_ar is varray(10) of varchar2(30); my_ar v_ar:=v_ar('g','m','d','龚','帅');--可变长度数值type type_array is table of varchar2(20) index by binary_integer; var_array type_array; --类似二维数组type serv_array is table of itmis_pri_serv_tbl%rowtype index by binary_integer; var_serv serv_array;--记录块,保存一条记录的变量，类似C的structTYPE t_myRecord is record (Field1 number,Field2 varchar2(50));var_record t_myRecord; beginv_var := 'hello world';dbms_output.put_line(v_var); for i in 1..my_ar.count loop dbms_output.put_line(my_ar(i)); end loop; ------------------------------------------ var_array(1):='aa'; var_array(2):='bb'; --下标必须是连续的 for i in 1..var_array.count loop dbms_output.put_line( var_array(i)); end loop; -------------------------------------------- 可以作为一个临时表变量来使用--select * bulk collect into var_serv from itmis_pri_serv_tbl where year =2013; --类似二维数组select * bulk collect into var_serv from itmis_pri_serv_tbl ;--二维数组的访问 for i in 1..var_serv.count loop dbms_output.put_line(var_serv(i).serv_id); dbms_output.put_line(var_serv(i).status); end loop;--记录快访问WITH temp(id,name) as(select 1,'sam' from dual union allselect 2,'tom' from dual union allselect 3,'Kelly' from dual )Select id,nameInto var_recordFrom tempwhere id = 1;dbms_output.put_line('var_record:'||var_record.Field1||' '||var_record.Field2) ;return length(p_str);end;/*1.COUNT 返回集合中元素的个数 2.DELETE 删除集合中所有元素 3.DELETE(x) 删除元素下标为x的元素 对VARRAY非法 4.DELETE(x,y) 删除元素下标从X到Y的元素 对VARRAY非法 5.EXIST(x) 如果集合元素x已经初始化，则返回TRUE, 否则返回FALSE 6.EXTEND 在集合末尾添加一个元素 对Index_by非法 7.EXTEND(x) 在集合末尾添加x个元素 对Index_by非法 8.EXTEND(x,n) 在集合末尾添加元素n的x个副本 对Index_by非法 9.FIRST 返回集合中的第一个元素的下标号，对于VARRAY集合始终返回1。 10.LAST 返回集合中最后一个元素的下标号, 对于VARRAY返回值始终等于COUNT. 11.LIMIT 返回VARRY集合的最大的元素个数 Index_by集合和嵌套表无用 12.NEXT(x) 返回在第x个元素之后及紧挨着它的元素值，如果x是最后一个元素，返回null. 13.PRIOR(x) 返回在第x个元素之前紧挨着它的元素的值，如果x是第一个元素，则返回null。 14.TRIM 从集合末端开始删除一个元素 对于index_by不合法 15.TRIM(x) 从集合末端开始删除x个元素 var_array.next(3); //返回var_array(3)*/