getobject Method
Object: frmbehindsc
Expand/Collapse source code of procedure getobject Source Code
LPARAMETERS tcString
LOCAL lnStartWord, ;
      lnEndWord

lnStartWord = AT(",", tcString, 1) + 1
IF LEFT(LTRIM(SUBSTR(tcString, lnStartWord)), 1) = "("
  lnStartWord = AT("(", tcString) + 1
  lnEndWord = AT(")", tcString)
ELSE
  lnEndWord = AT(",", tcString, 2)
ENDIF

RETURN ALLT(SUBSTR(tcString, lnStartWord , lnEndWord - lnStartWord))