Aclone question

[Massimo Linossi]

Hi to all.
I have a little question about aclone command.
Now I make a test like this :

Code: Select all  Expand view  RUN

do case
    case indice = 1
       arra_out = aclone(arra1)
    case indice = 2
       arra_out = aclone(arra2)
    case indice = 3
       arra_out = aclone(arra3)
    case indice = 4
       arra_out = aclone(arra4)
    case indice = 5
       arra_out = aclone(arra5)
endcase
 

If I have the variable indice that comes from a table, I have many situation and I prefer to
clone the array with a macro like :

Code: Select all  Expand view  RUN

arra_out = aclone(&"arra" + str(indice,1))

but it doesn't work.
Is there a way to make this ?
Thans a lot
Massimo

[Mike Serra]

Hello Massimo:

Try this:

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

FUNCTION Main()
   local i
   local aFinalArray
   local cVar
   public aArray1:={{"1","Hello"}},aArray2:={{"2","Hello"}}, aArray3:={{"3","Hello"}},aArray4:={{"4","Hello"}}
 
   for i = 1 to 4
    aFinalArray:=ACLONE(&("aArray" + str(i,1)))
    xBrowse(aFinalArray)
   next i
   release aArray1,aArray2,aArray3,aArray4
RETURN

 

[Massimo Linossi]

Hi Mike.
Thanks for the reply but It gives this error : "Error BASE/1003 : variable does not exist aArray1"
Really strange.

[Enrico Maria Giordano]

Can I see a reduced and self-contained sample showing the problem, please?

EMG

[byte-one]

Maybe you must declare the variables aArray1,... with memvar !?

[Massimo Linossi]

Hi Enrico
Here is a little test program

Code: Select all  Expand view  RUN

#include "fivewin.ch"

**************************************************************************
Procedure test_array
LOCAL arra1, arra2, arra3, arra_out, nome_arra, indice

arra1 = { "A1","A2","A3","A4" }
arra2 = { "B1","B2","B3","B4" }
arra3 = { "C1","C2","C3","C4" }

indice = 1

arra_out = aclone(&("arra" + str(indice,1)))        // HERE GIVES ERROR

msginfo(arra_out[1], str(indice))

return
 

Thanks a lot
Massimo

[Enrico Maria Giordano]

Gunther is right. You have to declare

Code: Select all  Expand view  RUN

MEMVAR arra1, arra2, arra3

not LOCAL.

EMG

[Massimo Linossi]

Great, it's working.
Thanks a lot Enrico & Gunther
Massimo