FiveTech Software tech support forums

Hola foreros. Tengo la constumbre de guardar Arrays en campos MEMO con ASave( aVar ), que después recupero con ARead(). A veces tambien guardo pequeños bitmaps cargados con MEMOREAD(). El problema me surgió a la hora de leer dichos campos MEMO. Para saber si guardo un array o ...

Don Antonio, Gracias por responder. Entiendo lo que mencionas, solo deseo saber si debo modificar Window.prg cada vez que actualise la version creando una "function ARead_2( cInfo )" como sugiere Gustavo Prediger en su post o si hay la posibilidad de que en el futuro ya no sea necesario ha...

Rodolfo, En FWH 11.04 en la función ARead() había un pequeño bug que se corrigió en versiones posteriores. Para que ARead() te funcione correctamente, debes cambiar la línea 1798 en window.prg: function ARead( cInfo ) local nPos := 1, nLen, ...

Buscando en este foro encontre un viejo mensaje en: QUE CAMBIO EN LA VERSION 8.12 XH ASAVE() AREAD() http://forums.fivetechsupport.com/viewtopic.php?f=6&t=14287&p=73732&hilit=aread#p73732 la solucion, pero no se si al hacer ese cambio en la ...

En la version anterior guardaba y extraia arreglos con ASave() y ARead() en campos memos de una DBF. Ahora al leerlos me regresa los arreglos vacios.

En whstsnew no menciona ningun cambio en estas funciones. Hay alguna nueva Lib o algo mas que deba modificar o agregar?

Salu2

For years i use this functions to store arrays. In the last time aread() gives wrong resultats. Antonio, please make

Code: Select all  Expand view

cVal := asave({1,2,3})
msginfo(len(aread(cVal)))

Günther,

Could you please provide an example that shows the need for that change ? thanks

Mr Günther

You are right. Actually it was 4 in the older versions. This value was changed to 1 in some later version wrongly.

Should be restored to 4.

In the function aRead() there must be "local nPos := 4,...." in the first line!

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 (...

http://wiki.fivetechsoft.com/doku.php?id=fivewin_function_fw_valtoexp

Thanks to Anser!

Added to FiveWin Wiki with a usage example

Regards
Anser

FW_ValToExp( aArray ) should be visible in FIVEWIN DOKU!

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. Creat...

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!