Programación General > Visual FoxPro

 Crear Tabla Desde Otra

<< < (2/2)

DrakerDG:
:comp: El tipo de variable que almacena solo 255 caracteres es la tipo Character.  La variable tipo String puede almacenar miles, creo que la limitante es tu memoria RAM.  Para comprobar que si soporta grandes tamaños declare una variable tipo string en el evento Load de un form, es decir


--- Código: Text --- *  En el evento Load del formPUBLIC sVariable as String   && Declara la variable tipo stringsVariable = &#34;&#34;         && Inicializa la variable con una cadena vacía   
Agregue un EditBox, un par de Labels, un CommandButton y un Timer en el Form.

El eneto Timer de Timer1 escribí el siguiente código:


--- Código: Text --- *  En el evento Timer del Timer1sVariable = sVariable + &#34;0123456789&#34;  && Agrega 10 caracteres cada vez.thisform.edit1.Value  = sVariable     && Estable la propiedad Value del EditBox con el contenido de la variable.thisform.label2.Caption = STR(LEN(sVariable)) + &#34; Caracteres&#34;  &&  Muestra el tamaño de la variable (Cantidad de caracteres)   
Establecí la propiedad enabled de Timer1 a .F. (False), para que no ejecutara el evento Timer al correr el Form.

En el evento Click del CommandButton escribí el código para habilidar y deshabilitar el Timer1.


--- Código: Text --- * En el evento Click del CommandButtonIF thisform.timer1.Enabled  this.Caption = &#34;Iniciar...&#34;  thisform.timer1.Enabled = .F. ELSE  this.Caption = &#34;Parar...&#34;  thisform.timer1.Enabled = .T. ENDIF    
Puedes utilizar una variable tipo string para almacenar la cantidad de caracteres que necesites.
Adjunte el formulario que te comento (Zip file), revisalo y me cuentas. :D

Widark:
:lol:, gracias DrakerDG!

solo hize el comentario por que me lo hicieron y no encontre en la ayuda la capacidad de el tipo de variable String, ya lo probe y me deja mucho más tranquilo, gracias por tu respuesta.

DrakerDG:
:comp: No hay problema, de hecho hice el ejemplo porque tambien dude y quize asegurarme.  :hola:

Cyclop:
Yo tengo un ejemplo bien chevere te lo envio luego

Widark:
Listo, Cyclop as estare esperando :comp:

Navegación

[0] Índice de Mensajes

[*] Página Anterior

Ir a la versión completa