Programación General > Visual FoxPro
Crear Tabla Desde Otra
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 = "" && 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 + "0123456789" && 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)) + " Caracteres" && 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 = "Iniciar..." thisform.timer1.Enabled = .F. ELSE this.Caption = "Parar..." 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
[*] Página Anterior
Ir a la versión completa