--Odac V5.55.1.26
--Delphi7
--Oracle 9.2.0.1.0
I would to use a "Return of cursor from a stored procedure or anonymous PL/SQL block (by parameter)"
I would to know how I must use a return of cursor with Delphi
--PL/SQL
PROCEDURE req_test(
curseur IN OUT req_test_cur) IS
BEGIN
OPEN curseur
FOR SELECT 'test' test
FROM DUAL;
END;
--DELPHI
with DataProc.PROC_TEST do
begin
execute;
while not eof do
begin
MessageDlg(FieldByName('TEST').AsString,mtWarning,[mbOk],0);
next;
end;
end;
It's all right?
Thx for help