oTest = createobject('myObject') ShowResult(oTest,'ON') ShowResult(oTest,'OFF') function ShowResult lparameters toObject, tcXactState set exact &tcXactState with toObject ? 'Set exact is '+set('exact') ? '****************************' ? 'myProp1', ; .myProp1 = 'test', ; .myProp1 = 'test ', ; .myProp1 = 'test'+space(50), ; .myProp1 = padr('test',500) ? 'myProp2', ; .myProp2 = 'test', ; .myProp2 = 'test ', ; .myProp2 = 'test'+space(50), ; .myProp2 = padr('test',500) ? 'myProp3', ; .myProp3 = 'test', ; .myProp3 = 'test ', ; .myProp3 = 'test'+space(50), ; .myProp3 = padr('test',500) ? 'myProp4', ; .myProp4 = 'test', ; .myProp4 = 'test ', ; .myProp4 = 'test'+space(50), ; .myProp4 = padr('test',500) ? '****************************' endwith define class myObject as Relation myprop1 = 'test' myprop2 = 'test ' myprop3 = 'test'+space(100) myprop4 = padr('test',100) enddefineCetin