Hay una cuestión de definición. No hay un espacio predefinido y otro mecanizado, los dos son Chr(32)
Si Chr(32) es válido, rellená la variable con otro caracter no válido.
En consola el Chr(255) no es visible, por lo que yo tomaría como valor inicial
v:= Replicate( Chr(255), 4 ) // Donde 4 es el largo que tiene que tener el get.
@get ...... PICTURE '@K XXXX' // El @K borra la variable si el usuario teclea algo, quedando en
valid v != Replicate( Chr(255), 4 )
mientras el usuario no tipea nada, la variable será igual a Replicate( Chr(255), 4 ), en cuanto teclee algo, incluyendo un espacio, ya se volverá lo digitado, estirado hasta la longitud, que en el ejemplo es 4.
Creo que con esto te funcionaría.
↧