再问,delphi调用存储过程的问题,程序包搞定了但没有结果集返回?

Question

用下面的过程也出现上面的错误!
过程创建是成功的
Create or replace procedure p_test
IS
 Cursor c_cemp IS Select * from NET_INFO;
 r_emp c_cemp%ROWTYPE;
Begin
 open c_cemp;
 loop
 fetch c_cemp into r_emp;
 exit when c_cemp%NOTFOUND;
 end loop;
 close c_cemp;
End p_test;

Answer 1

query.close;
query.sql.add(select * from pkg_test.p_test');
query.open;

Answer 2

上面漏了
query.close;
query.sql.add('select * from pkg_test.p_test()');
query.open;

Answer 3

依然不行,提示说,SQL语句未结束.
唉,