如果procedure中执行的是一条SQL语句，如何得到返回的数据集?

Question

CREATE OR REPLACE  PROCEDURE "ATTEMPER"."aaa"       
(V_CODE IN VARCHAR2,V_COLFLAG IN NUMBER,V_FORMULA OUT VARCHAR2) ASBEGIN
  DECLARE
  CURSOR C_1 IS
    SELECT FORMULA AS F FROM ORIITEM_FORMULA
    WHERE CODE = V_CODE AND COLFLAG= V_COLFLAG;
  V_CUR C_1%ROWTYPE;
  BEGIN
    OPEN C_1;
    FETCH C_1 INTO V_CUR;
    IF C_1%ROWCOUNT=1 THEN
      V_FORMULA := V_CUR.F;
    END IF;
    CLOSE C_1;
  END;
END;

Answer 1

CREATE OR REPLACE PACKAGE pkg_test
AS
   TYPE myrctype IS REF CURSOR;
END pkg_test;
/CREATE OR REPLACE PROCEDURE GetRec(Varea_code in VARCHAR2,p_rc out pkg_test.myrctype) 
IS 
  sqlstr varchar2(2000);
BEGIN
  sqlstr := 'select * from area_code where area_code ='''||varea_code||'''';
  open p_rc for sqlstr;
END;

Answer 2

请教
如果在DELPHI中用存储过程控件执行此PROCEDURE
如何得到结果?