Limitar MemoEdit() e forçar edição em maiúsculas.

[Grings]

Tem como limitar a quantidade de caracteres no MemoEdit() e forçar sua edição para letras maiúsculas? Grato!

[Stanis Luksys]

Olá,

Quanto ao limite de caracteres você pode especificar dentro de sua UDF que controla o MemoEdit utilizando o o parametro automatico MODE que o memoEdit passa para udf.

Digamos que você chama um campo memo ou arquivo texto assim:

VARIAVEL := MemoEdit(..."MINHA_UDF")

Vc pode controlar o tamanho máximo da variavel assim:

Código: Selecionar todos

function MINHA_UDF
parameters MODO, LINHA, COLUNA

  if MODO = 0  // foi pressionada uma tecla normal de edição   
    
    if len( VARIAVEL ) >= TAMANHO_MAXIMO
     
       alert("TAMANHO MAXIMO!!!") 
      
       return(20) // com este valor voce deleta a ultima palavra
                      // só pra exemplificar
    endif

  endif

return(0) //continua edicao normal

Quanto a deixar tudo maiusculo acho que só é possível mesmo na hora da gravação e não na edição, aí basta dar um upper assim:

VARIAVEL := upper( VARIAVEL )

Espero ter colaborado