Using function returning cursor

[Vox]

Hi,

Is there any way to use in TOracleDataset such a function:

FUNCTION PTEST3 return sys_refcursor
IS
  res sys_refcursor;
begin
  open res for select * from test1;
  return res;
END;

I know, i can use an equivalent:

PROCEDURE PTEST4 (result in out sys_refcursor)
IS
  res sys_refcursor;
begin
  open res for select * from test1;
  result := res;
END;

with this SQL

_cursor.SQl.Text := 'call ptest4(:result)'

But i want a function

Thanks.

 

[Marco Kalter]

Sure, you can do this in the SQL.Text of a dataset:

begin
  :ptest3_cursor := ptest3;
end;

Declare test3_cursor as a cursor variable, and you're done.

 

[Vox]

Oh, thank you, it works!

I just tried to use this SQL

call ptest3 into :result

it works with simple variables, but doesn't works with cursors.