> >* MyClasses.PRG > >define class StringFunctions as Custom && Or whatever, String related functions > function myStringFunction1(myParametersList) > endfunc > > function myStringFunction2(myParametersList) > endfunc >enddefine > >define class ArrayFunctions as Custom && Or whatever, Array related functions > function myArrayFunction1(myParametersList) > endfunc > > function myArrayFunction2(myParametersList) > endfunc >enddefine > >define class DataFunctions as Session && This are functions that will use tables, thus I use Session as baseclass > function myDataFunction1(myParametersList) > endfunc > > function myDataFunction2(myParametersList) > endfunc >enddefine >>
>loDataFunctions = newobject('DataFunctions', cSomeBasePath + 'MyClasses.PRG') && or >thisform.DataFn = newobject('DataFunctions', cSomeBasePath + 'MyClasses.PRG') >... >loDataFunctions.myDataFunction(someParameterList) >>