80 lines
1.5 KiB
Plaintext
80 lines
1.5 KiB
Plaintext
// ; Donated to the public domain by
|
|
// Viktor Szakats (vszakats.net/harbour)
|
|
|
|
MEMVAR m_cLongerNameThen10Chars
|
|
#ifdef __HARBOUR__
|
|
MEMVAR m_cLongerN
|
|
#endif
|
|
MEMVAR m_cString
|
|
MEMVAR m_nDouble
|
|
MEMVAR m_nDoubleH
|
|
MEMVAR m_nInt
|
|
MEMVAR m_nLong
|
|
MEMVAR m_dDate
|
|
MEMVAR m_lLogicT
|
|
MEMVAR m_lLogicF
|
|
MEMVAR m_xStayHer
|
|
|
|
PROCEDURE Main()
|
|
|
|
PRIVATE m_cLongerNameThen10Chars := "Long String Name!"
|
|
PRIVATE m_cString := "This is a" + Chr( 0 ) + "string to save."
|
|
PRIVATE m_nDouble := 100.0000
|
|
PRIVATE m_nDoubleH := 5000000000
|
|
PRIVATE m_nInt := 35
|
|
PRIVATE m_nLong := 3000000
|
|
PRIVATE m_dDate := Date()
|
|
PRIVATE m_lLogicT := .F.
|
|
PRIVATE m_lLogicF := .T.
|
|
|
|
SAVE TO memfile ALL
|
|
SAVE TO memsome ALL LIKE "m_nDouble*"
|
|
|
|
CLEAR MEMORY
|
|
|
|
SAVE TO memempt ALL
|
|
|
|
PRIVATE m_xStayHer := "CONST"
|
|
|
|
RESTORE FROM memfile ADDITIVE
|
|
|
|
? m_xStayHer
|
|
? m_cLongerN /* Can't restore the part of the name beyond the tenth char */
|
|
? m_cString
|
|
? m_nDouble
|
|
? m_nDoubleH
|
|
? m_nInt
|
|
? m_nLong
|
|
? m_dDate
|
|
? m_lLogicF
|
|
? m_lLogicT
|
|
|
|
RESTORE FROM memfile
|
|
|
|
// ? m_xStayHer
|
|
? m_cLongerN /* Can't restore the part of the name beyond the tenth char */
|
|
? m_cString
|
|
? m_nDouble
|
|
? m_nDoubleH
|
|
? m_nInt
|
|
? m_nLong
|
|
? m_dDate
|
|
? m_lLogicF
|
|
? m_lLogicT
|
|
|
|
? __MRestore( "memfile", .F., "m_nDouble*", .T. )
|
|
? m_nDouble
|
|
? m_nDoubleH
|
|
? __mvScope( "m_nInt" )
|
|
|
|
FErase( "memempt.mem" )
|
|
FErase( "memfile.mem" )
|
|
FErase( "memsome.mem" )
|
|
|
|
RETURN
|
|
|
|
#ifndef __HARBOUR__
|
|
FUNCTION __mvScope()
|
|
RETURN -1
|
|
#endif
|