> > >* BufferClass.Prg >* >* This was defined by me in a VCX using the class builder. >* Sorry if ther are any mistakes > >DEFINE Class Buffer as Custom > > cTable = "" > oData = .f. > > PROCEDURE Save > > LOCAL loData > IF type("this.cTable") != "C" > RETURN > ENDI > SELE (this.cTable) > SCATTER name loData > this.oData = loData > > ENDPROC > > PROCEDURE Restore > > IF type("this.oData") = "O" and type("this.cTable") = "C" > SELE (this.cTable) > GATHER name this.oData > ENDIF > > ENDPROC > >ENDDEFINE > >>