Работа с курсорами в результатах выполнения SQL-запроса: Сборка Dal

Var
    //...
    ORCLConnect: IDalConnection;
    Command: IDalCommand;
    Param: IDalCommandParam;
    ResultCursor: IDalCursor;
    //...
Begin
    //...
    Command := ORCLConnect.CreateCommand;
    //Выполнение функции
    Command.SQL := "Func_1";
    Command.Type := DalCommandType.StoredProcedure;
    //Создание параметра, в котором будет доступен курсор, являющийся результатом работы функции
    Param := Command.Params.Add("Result");
    Param.Direction := DalParamDirection.RefCursor;
    Command.Execute;
    Command.Close;
    ResultCursor := Param.Value As IDalCursor;
    //Дальнейшая работа с полученным курсором
    //...

Курсор в значениях полей

Если результатом выполнения команды или хранимой процедуры является набор данных произвольной структуры, то некоторые поля также могут содержать в качестве значения курсоры данных. Для таких полей будет установлен тип данных - DbDataDomain.RefCur. Для работе с данными этих полей необходимо значение поля в текущей записи привести к типу IDalCursor:

Var
    //...
    ORCLConnect: IDalConnection;
    Command: IDalCommand;
    Param: IDalCommandParam;
    ResultCursor, FieldCursor: IDalCursor;
    Field: IDalCursorField;
    v: Variant;
    //...
Begin
    //...
    Command := ORCLConnect.CreateCommand;
    //Выполнение функции
    Command.SQL := "Func_1";
    Command.Type := DalCommandType.StoredProcedure;
    //Создание параметра, в котором будет доступен результат работы функции
    Param := Command.Params.Add("Result");
    Param.Direction := DalParamDirection.RefCursor;
    Command.Execute;
    Command.Close;
    ResultCursor := Param.Value As IDalCursor;
    While Not ResultCursor.Eof Do
        For Each Field In ResultCursor.Fields Do
            If Field.DataDomain = DbDataDomain.RefCur Then
                FieldCursor := Field.Value As IDalCursor;
                //Работа с курсором, который получен из значения поля
                //...
            Else
                v := Field.Value;
                //Работа со значением поля
            End If;
        End For;
        ResultCursor.Next;
    End While;
//...