Protheus :: Programação Básica em Advpl “Combo IX”

Protheus :: Programação Básica em Advpl “Combo IX”

Tamanho:

Faz-se necessário observar o tamanho de variáveis de caracteres e numéricas uma vez que um problema difícil de analisar é a comparação de variáveis de tamanhos diferentes; os espaços de preenchimento podem ser significativos.:

Variáveis Caractere

Ex.:

Local cUsuario := “Administrador”
Local cUser := “Administrador “
Local lEqual

lEqual := ( cUsuario == cUser )

No exemplo acima lEqual irá retornar .F. uma vez que o conteúdo armazenado na variável cUsuario ( apesar de parecer igual ) é diferente do conteúdo da variável cUser. O que diferencia o conteúdo entre uma variável e outra são os espaços à direita. Para resolver o problema na comparação teremos que abir mão de uma função que remova os espaços à direita ( RTrim( ) ).

Ex.:

Local cUsuario := “Administrador”
Local cUser := “Administrador “
Local lEqual

lEqual := ( cUsuario == RTrim( cUser ) ) //Removendo espaços a //direita
ou

lEqual := ( cUsuario == AllTrim( cUser ) ) //Removendo espaços a //direita e à esquecerda

Nos dois exemplos acima lEqual irá ser igual à .T.

Se ao invés de usarmos o operador de comparação de igualdade == (exatamente igual ) utilizássemos o operador = ( que pode ser utilizado tanto para comparação de igualdade como para atribuição – neste caso depende do contexto ) – teríamos:

Ex.:

Local cUsuario := “Administrador”
Local cUser := “Administrador “
Local lEqual

lEqual := ( cUsuario = cUser )

No Exemplo acima, lEqual será .T. pois não fizemos uma comparação exata.

Em AdvPl é possível obter o tamanho de uma variável do tipo caractere ou array utilizando a função Len( ).

Ex.:

Local aArray1 := { “1” , “2” , “3” }
Local aArray2 := Array( 10 )

Local cUsuario := “Administrador”
Local cUser := “Administrador “

Local nArray1 := Len( aArray1 ) //3
Local nArray2 := Len( aArray2 ) //10

Local nUsuario := Len( cUsuario ) //13
Local nUser := Len( cUser ) //16