Nesse vídeo demonstraremos em como apagar elementos de um array utilizando a função aDel juntamente com aSize.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe026
Exemplo de função para deletar um elemento do array
@type Function
@author Atilio
@since 26/11/2022
@see https://tdn.totvs.com/pages/releaseview.action?pageId=23889096
@obs Função aDel
Parâmetros
+ Array que terá o elemento deletado
+ Posição numérica que será deletada do array
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe026()
Local aArea := FWGetArea()
Local aNomes := {}
//Adicionando os nomes
aAdd(aNomes, "Daniel")
aAdd(aNomes, "João")
aAdd(aNomes, "Maria")
//Deleta o elemento da posição 2, vai ficar como: ["Daniel", "Maria", Nil]
aDel(aNomes, 2)
//Redimensiona o Array, diminuindo uma posição que estava como Nil
aSize(aNomes, Len(aNomes) - 1)
//Exibe agora o que está na posição 2
FWAlertInfo("Posição 2 é " + aNomes[2], "Exemplo de aDel")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
Boa tarde, como eu faço caso seja uma Matriz?
Exemplo cValores[10][10] e quero deletar a coluna 8
Bom dia Hiago, tudo joia?
Supondo então que nessa matriz, na linha 10, você quer apagar a coluna 8, ficaria:
nTamanho := Len(aValores[10]) //Pega a quantidade de colunas da linha 10
aDel(aValores[10][8]) //Exclui a coluna 8 da linha 10
aSize(aValores[10], nTamanho-1) //Redimensiona a linha 10, diminuindo uma coluna de tamanho
Tenha uma ótima e abençoada sexta feira.
Um grande abraço.