怎么在存储过程里定义数组？

Question

declare
       type arr is table of number;
       myArray arr;
begin
       myArray:=arr(1,2,3,4,5,6,7,8);
       for i in myArray.first..myArray.last
       loop
           dbms_output.put_line(to_char(i));
       end loop;
end;

Answer 1

declare
       type arr is table of number index by BINARY_INTEGER;
       myArray arr;
       i number default 1;
begin
       loop
           myArray(i):=i;
           exit when i>10;
           i:=i+1;
       end loop;
       
       loop
          exit when i<1;
          dbms_output.put_line(to_char(myArray(i)));
          i:=i-1;
       end loop;
end;

Answer 2

declare
       type arr is varray(5) of number;
       myArray arr;
begin
       myArray:=arr(1,2,3,4,5);
       
       for i in myArray.first..myArray.last
       loop
           dbms_output.put_line(to_char(i));
       end loop;
end;

Answer 3

declare
       type arr is table of number index by varchar2(1);
       myArray arr;
begin
       myArray('A'):=1;
       myArray('B'):=2;
       
       
       dbms_output.put_line(myArray('A'));
       dbms_output.put_line(myArray('B'));
end;

Answer 4

汗死，自己搞定了，不能用declare.

Answer 5

没人顶，准备把分全给vivianfdlpw() 了。

Answer 6

--创建存储过程
create or replace procedure p
as
type arr is table of number index by PLS_INTEGER;
myArray arr;
begin
      for i in 1..10
      loop
          myArray(i):=i;
      end loop;
      for i in 1..myArray.count
      loop
          dbms_output.put_line(to_char(myArray(i)));
      end loop;
end;--测试
begin
     p;
end;

Answer 7

--创建类型
create or replace type arr as table of number;--创建存储过程
create or replace procedure p(myArray arr)
as
begin
      for i in myArray.first..myArray.last
      loop
          dbms_output.put_line(to_char(i));
      end loop;
end;--测试
declare
     myArray arr:=arr(1,2,3,4,5);
begin
     p(myArray);
end;

Answer 8

vivianfdlpw() 已经回答上拉
已经有人回答出来了再答没有太大的意思拉