* Setup... cPropSpecs="CustID,Phone,City" cObjRef="oMyObj." * To Store (see below): StoreData(cObjref,cPropSpecs) * To Restore: ReStoreData(cObjref,cPropSpecs) * To store (this is for illustration, not optimized) Procedure StoreData(cRoot,cSpecs) cTmpStr=ChrTran(cSpecs, ",", chr(13)) Dim aTmp(MemLine(cTmpStr)) For i=1 to MemLine(cTmpStr) Store Eval(cRoot + MLine(cTmpStr,i) ) to aTmp(i) EndFor Save to Memo MyMemo All like aTmp * To Restore Procedure ReStoreData(cRoot,cSpecs) Restore From Memo myMemo Additive && restores aTmp NumVars=Alen(aTmp) For I=1 to NumVars cPropStr=cRoot + MLine(cSpecs,I) Store aTmp(J) to (cPropStr) EndFor ReturnThis approach guarantees that your object properties will be restored to what you stored them as (as long as you don't corrupt the order of property names in cPropSpecs).