Oracle PLSQL INDEX BY Binary_Integer 测试

[转自] http://blog.chinaunix.net/uid-14669803-id-2921539.html

DECLARE

TYPE t_list_1 IS TABLE OF VARCHAR2(1024) ; -- 非标号，需要动态初始化，动态extend
TYPE t_list_2 IS TABLE OF VARCHAR2(1024) INDEX BY Binary_Integer; -- 标号数组，不需要动态申请

-- 非标号数组
v_list_11 t_list_1 := t_list_1('11A','11B'); -- 声明时赋初值
v_list_12 t_list_1 ;

-- 标号数组
v_list_21 t_list_2 ;

	/* 标号数组声明不能赋初值
	v_list_21 t_list_2 := t_list_2('A','B');
	*/

BEGIN
dbms_output.put_line(v_list_11(1));

	/* 报错，需要初始化
	v_list_12(1):='1A';
	*/

-- 初始化
v_list_12 := t_list_1();
v_list_12.extend;
v_list_12(1) :='12A';
dbms_output.put_line(v_list_12(1));

-- 标号数组不需要初始化，下标从1开始
v_list_21(1) :='21A';
dbms_output.put_line(v_list_21(1));
-- 并且可以指定下标赋值
v_list_21(100) :='2100A';

dbms_output.put_line(v_list_21(100));
dbms_output.put_line(v_list_21.count);

END
;
/

11A
12A
21A
2100A
2
PL/SQL procedure successfully completed