Create a variable

[Natter]

Hi,

To create a variable, I can write, for example: LOCAL AAA
Is it possible to create such a variable programmatically ?

[Antonio Linares]

Yes, but it won't be local

Simply assign it. At the top write:

memvar MyVar

later in your code:

MyVar = ...

but it will not be local, it will be public

[Natter]

Thanks Antonio, but this is somewhat not what I need. For example, I need to make 10 variables

for st=1 to 10
create variable "n_"+ltrim(str(st))
next

[hmpaquito]

Perhaps,

for st=1 to 10
cName:= "n_"+ltrim(str(st))
PRIVATE &cName
next

regards

[Marc Venken]

Thanks Antonio, but this is somewhat not what I need. For example, I need to make 10 variables

for st=1 to 10
create variable "n_"+ltrim(str(st))
next

Maybe better use a array ?

Local aGallery := ARRAY(12) // Max = 12 items

is very easy to programmaticaly fill these with specific data in a loop

for i = 1 to len(aGallery)
aGallery[i] = i // or any dbf value or .....
next

You only have to think of 1 var name .... (Local of public,...)

[Marc Venken]

Thanks Antonio, but this is somewhat not what I need. For example, I need to make 10 variables

for st=1 to 10
create variable "n_"+ltrim(str(st))
next

Maybe better use a array ?

Local aGallery := ARRAY(12) // Max = 12 items

is very easy to programmaticaly fill these with specific data in a loop

for i = 1 to len(aGallery)
aGallery[i] = i // or any dbf value or .....
next

You maybe also consider using Hashes (I prefer them)

look : viewtopic.php?f=3&t=19895&p=104891&hilit=hash#p104891

[Natter]

Thank you, an interesting opportunity !

[nageswaragunupudi]

Hi,

To create a variable, I can write, for example: LOCAL AAA
Is it possible to create such a variable programmatically ?

No.
Because, the local declarations must be available to the compiler.

Ofc, you can create private variables at runtime.

[Natter]

Thank you, Rao !

[Antonio Linares]

Dear Yuri,

This is another possible way:

Code: Select all  Expand view  RUN

#include "hbclass.ch"

function Main()

   local oVars := TLocal(), n

   for n = 1 to 10
      __objAddData( oVars, "n_" + LTrim( Str( n ) ) )    
   next
   
   oVars:n_1 = 123
   ? oVars:n_1

return nil  

return nil

CLASS TLocal

ENDCLASS
 

[Natter]

Thank you very much for an interesting opportunity !

[Otto]

Hello,

May I ask, what is the purpose of these variables?
Best regards,
Otto