These functions are not saving and reading a array on the right way. It seems, the aread is ok but asave not saving normal. An older app reads a array saved with a old version from FWH normal. But if i write back with asave, the array ist destructed!
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour asave/aread
You are right. We have been experiencing the problem with "some recent" versions of xHarbour. This had also effected XBrowse's SaveState() method.
I suggest three alternatives:
1. Copy the ASave function from windows.prg into your module that is using ASave as a static function.
2. Create a new public function MyASave with the same code as ASave in windows.prg and use MyASave instead of ASave.
3. Much better and I recommend this: If you are using one of the latest versions of FWH, use FW_ValToExp( aArray ) function.
Usage:
cArray := FW_ValToExp( aArray )
Save cArray anywhere. cArray is pure asci text unlike ASave which gives a binary string. This can be saved in ini files also.
For restoring, read cArray from the saved file and
aArray := &( cArray )
Simple macro is enough. No need to use any function.
Note: FW ASave function can even save objects. FW_ValToExp() can not.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
FW_ValToExp( aArray ) should be visible in FIVEWIN DOKU!
Added to FiveWin Wiki with a usage example 
Regards
Anser
Regards
Anser
here is another way to save / load 2-dimensional arrays in / from a memofield
METHOD LoadShares ()
LOCAL cAll := (::cAlias)->Shares // load string from memo
LOCAL cShare := "", aShare := {}, aSh := {}
LOCAL nCount := 0 //NumAt (";", cAllIP), i
DO WHILE .T.
cShare := Token( cAll, "|", ++nCount )
IF Empty( cShare )
// AAdd (aShare, {"","Keine Eintrõge"} )
EXIT
ENDIF
aSh := {Token (cShare,";",1),Token (cShare,";",2)}
AAdd (aShare, aSh )
//? aShare[1,1], aShare[1,2]
ENDDO
IF Len (aShare) = 0; AAdd (aShare, {"","Keine Einträge"} );ENDIF
RETURN (aShare)
METHOD SaveShares (aSh)
LOCAL i
LOCAL cSh := ""
FOR i := 1 TO Len (aSh)
cSh += aSh[i,1]+";"+aSh[i,2]+"|"
NEXT
cSh := Left (cSh, Len(cSh)-1)
(::cAlias)->Shares := cSh
RETURN (cSh)kind regards
Stefan
Stefan