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


posted @   Pekkle  阅读(394)  评论(0编辑  收藏  举报
努力加载评论中...
点击右上角即可分享
微信分享提示