vieja duda con respecto a los GET

[goosfancito]

Hola.

Code: Select all  Expand view

...
redefine get oGet[ 01 ] var vGet[ 01 ] id 100 of oDlg
...
 

Mi duda es : como le digo al get que va a tener 200 lugares para poder trabajar y luego asignarle un
valor a ese get?

esto le digo la longitud que va tener

Code: Select all  Expand view

vGet[ 01 ]:= space(200)

Pero si luego quiero inicializarlo con un valor, al hacer esto:

Code: Select all  Expand view

vGet[ 01 ]:= "hola"

la longitud se redujo de 200 a 4, como hago para que mantenga los 200?

gracias.

[karinha]

Code: Select all  Expand view

vGet[ 01 ]:= "hola" + SPACE(196)  // = 200 espacios.
 

Saludos.

[goosfancito]

pense que era el unico que lo hacia de esa manera...

[karinha]

Puede también:

Code: Select all  Expand view

STORE vGet[ 01 ]:= "hola" + SPACE(196)  
 

Saludos.

[Euclides]

gosfancito, usted puede hacer también:

Code: Select all  Expand view

   cGet:="Hola"
   ...
   REDEFINE GET cGet ID 100 OF oDlg MEMO
 

Ojo! acepta más de 200 chars.
Saludos, Euclides

[Joel Andujo]

O así :

STORE vGet[ 01 ]:= PadR("hola", 200)



PAD()
Llena valores de caracteres, fechas y numéricos con caracteres de relleno
------------------------------------------------------------------------------
Sintaxis
PADL(<exp>, <nLongitud>, [<cCarRelleno>]) --> cCadenaRellena
PADC(<exp>, <nLongitud>, [<cCarRelleno>]) --> cCadenaRellena
PADR(<exp>, <nLongitud>, [<cCarRelleno>]) --> cCadenaRellena

Argumentos
<exp> es el valor de caracteres, numérico o de fechas que se va a
rellenar.
<nLongitud> es la longitud de la cadena de caracteres que se va a
devolver.
<cCarRelleno> es el carácter con el que se va a rellenar <exp>. Si
no se especifica, el valor por defecto es caracteres de espacio.

[goosfancito]

Euclides, el problema que tengo no es por los 200, asi sean 20, cuando asignas un valor...

gosfancito, usted puede hacer también:

Code: Select all  Expand view

   cGet:="Hola"
   ...
   REDEFINE GET cGet ID 100 OF oDlg MEMO
 

Ojo! acepta más de 200 chars.
Saludos, Euclides