求懂VB和delphi的高手指点

Question

Public Function ExeRecordset(ByVal sql As String, m_con As ADODB.Connection, Optional nCursorLocation As CursorLocationEnum = adUseClient, Optional nCursorType As CursorTypeEnum = adOpenDynamic, Optional nLockType As LockTypeEnum = adLockOptimistic) As ADODB.Recordset
    Dim mRs As ADODB.Recordset
    Set mRs = New ADODB.Recordset
    mRs.CursorLocation = nCursorLocation
    mRs.Open sql, m_con, nCursorType, nLockType
    Set ExeRecordset = mRs
End Function这个函数翻译成delphi该怎么写...求教;

Answer 1

真心求教...定义中的Optional nCursorLocation As CursorLocationEnum = adUseClient, Optional nCursorType As CursorTypeEnum = adOpenDynamic, Optional nLockType As LockTypeEnum = adLockOptimistic 这一段我不知道在delphi中该怎么写,作为可选返回参数来说这些有写的必要吗?
这是段运行查询，返回记录集的代码.