Duvidas sobre GET

[helio]

Pessoal tenho no meu sistema uma variavel que quando entro no modulo ela ja vem preenchida com alguma nome mais quando quero digitar outra coisa que nao seja e que vem tenho que apagar tudo para poder digitar o que quero gostaria de saber se tem algum modo que quando digitar a primeira letra apagar o resto do conteudo que estava la.

Valeu antecipadamente,

Helio Beltrao
helio@hrbinfo.com.br

[alxsts]

Olá!

Utilize os recursos da cláusula PICTURE do objeto GET:

Código: Selecionar todos

   LOCAL cNome

   CLS
   cNome := PadR( "FORUM CLIPPER ON LINE", 50 )

   @10,10 Say "Digite o nome:" ;
              Get cNome ;
              Pict "@!KS30" ;
            Color "W+/B" ;
             Valid ! Empty( cNome )
   READ

No exemplo, uma variável é inicializada com um texto alinhado à esquerda completando 50 posições. Depois, é montado um get para a variável e feito o READ.
Note a cláusula PICTURE. A entrada de dados será em maiúsculas (!), se o primeira tecla digitada não for tecla de controle (enter, setas, etc...) o conteúdo do buffer é apagado antes ( K ). Além disto, apesar de a variável ter 50 bytes, somente 30 serão exibidos. Se a digitação ultrapassar esse limite, ocorrerá o scroll horizontal (S30).

[helio]

Valeu pela dica ficou beleza, Obrigado.