Nesse vídeo demonstraremos a utilização da função Len, que serve para buscar o tamanho de uma variável caractere ou array.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe324
Retorna o tamanho de uma variável (caractere ou array)
@type Function
@author Atilio
@since 11/03/2023
@see https://tdn.totvs.com/display/tec/Len
@obs
Função Len
Parâmetros
+ xParam , Indefinido , Variável que será avaliada
Retorno
+ nCount , Numérico , Retorna o tamanho da variável
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe324()
Local aArea := FWGetArea()
Local cNome := "Daniel"
Local aDados := {"Daniel", "João", "Maria"}
Local cMensagem := ""
//Monta a mensagem pegando o tamanho de cada variável
cMensagem := "cNome: " + cValToChar( Len(cNome) ) + CRLF
cMensagem += "aDados: " + cValToChar( Len(aDados) ) + CRLF
//Mostra o resultado
FWAlertInfo(cMensagem, "Teste Len")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
