I use cursor in a TOraStoredProc
Code: Select all
--Oracle 9i
PROCEDURE REQ_DPTEST(C OUT SYS_REFCURSOR) IS
BEGIN
OPEN C FOR
SELECT *
FROM DPTEST;
END;
and I do that in DELPHI (Code Gear Rad Studio 2007)
Code: Select all
with PROC_TEST do
begin
Execute;
try
while not EOF do
[...]
FieldByName('COL_TEST1')...
FieldByName('COL_TEST2')...
[...]
Next
end
finally
Close--
end
end;
Hip