| 4D v20.1Get edited text | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|  | 
    4D v20.1
 Get edited text 
         | |||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Get edited text -> Resultado | ||||||||
| Parâmetro | Tipo | Descrição | ||||||
| Resultado | Texto |   | Text being entered | |||||
O comando Get edited text é utilizado principalmente com o evento de formulário On After Keystroke para recuperar o texto a medida em que é introduzido. Também pode ser utilizado com o evento de formulário On Before Keystroke. Para maior informação sobre estes eventos de formulário, por favor consulte a descrição do comando Form event code.
A combinação deste comando com os eventos formulário On Before Keystroke e On After Keystroke funciona da seguinte maneira:
Note that the On After Keystroke event can generally be replaced by the On After Edit event, which supports more entry methods (such as IME).
Estes dois eventos só são gerados nos métodos objeto em questão.
Quando é utilizado em um contexto diferente ao de entrada de dados em um objeto de formulário, esta função retorna uma string vazia.
O método abaxio automaticamente põe os caracteres sendo digitados em maiúsculas
 </p><p>If(Form event code=On After Edit)
 [Trips]Agencies:=Uppercase(Get edited text)
End if <span style="background-color: #ffffff; color: #000000; font-family: arial, helvetica, clean, sans-serif;">Esteéum exemplo de como processar imediatamente os caracteres introduzidos em um camp. A idéia consiste em colocar em outro campo texto(chamado“Palavras”)todas as palavras da frase que estão sendo escritas. Para isso, escreva o seguinte código no método de objeto do campo&NBSP;</span>If(Form event code=On After Keystroke)
 $RealTimeEntry:=Get edited text
 PLATFORM PROPERTIES($platform)
 If($platform#3) ` Mac OS
    Repeat
       $DecomposedSentence:=Replace string($RealTimeEntry;Char(32);Char(13))
    Until(Position(" ";$DecomposedSentence)=0)
 Else ` Windows
    Repeat
       $DecomposedSentence:=Replace string($RealTimeEntry;Char(32);Char(13)+Char(10))
    Until(Position(" ";$DecomposedSentence)=0)
 End if
 [Example]Words:=$DecomposedSentence
End ifNota: este exemplo não é exaustivo porque assumimos que as palavras são separadas unicamente por espaços (Char (32)). Para uma solução completa necessitará adicionar outros filtros para extrair todas as palavras (vírgulas, ponto e vírgula, apóstrofes, etc.).
	Produto: 4D
	Tema: Controle de entrada
	Número 
        655
        
        
        
	
	Criado por: 4D v6.5
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	Manual de linguagem 4D ( 4D v20)
	
	
	Manual de linguagem 4D ( 4D v20.1)
	
	
	
 Adicionar um comentário
Adicionar um comentário