这样的select怎么写？包含存储过程

Question

SELECT p1.field1, p2.field2 FROM MyProc1 p1, MyProc2 p2
WHERE p2.field1 = p2.field1

Answer 1

以下是包定义：我想用用游标返回：
----------------head-------------------
CREATE OR REPLACE PACKAGE UTC.KKSTATPACK
AS
  type cur is ref cursor;
  procedure kkStat(Result out cur, StatDate in Date, StatType in number);
END KKSTATPACK;
-----------body---------------
CREATE OR REPLACE PACKAGE BODY UTC.KKSTATPACK AS
procedure kkStat(Result out cur, StatDate in Date, StatType in number) as
begin
--返回结果
open Result for
    Select * from ta_CarIO;
end kkStat;
END KKSTATPACK;不过Delphi怎么调用，我现在还不清楚。
^_^，我也在文别人。