Histórico da Página

ADel ( < aFonte>, < nPosição> ) --> Nil

Além disso, o último elemento pode ser removido da estrutura, se conveniente, através da função ASize.

#DEFINE CRLF Chr(13)+Chr(10)User Function Exemplo()Local aExemplo := {1, 2, {11, 22, 33}}Local cMensagem := ""//+----------------------------------------------------------------------------+//|Exemplifica o uso da função ADel                                            |//+----------------------------------------------------------------------------+  cMensagem += "Dimensão de AExemplo = " + cValToChar(Len(aExemplo)) + CRLF  cMensagem += "aExemplo[1] = " + cValToChar(aExemplo[1])            + CRLF  cMensagem += "aExemplo[2] = " + cValToChar(aExemplo[2])            + CRLF  cMensagem += "aExemplo[3][1] = " + cValToChar(aExemplo[3][1])      + CRLF  cMensagem += "aExemplo[3][2] = " + cValToChar(aExemplo[3][2])      + CRLF  cMensagem += "aExemplo[3][3] = " + cValToChar(aExemplo[3][3])      + CRLF  ADel(aExemplo, 2)  ASize(aExemplo, 2)  cMensagem += "Dimensão atual = " + cValToChar(Len(aExemplo))       + CRLF  cMensagem += "aExemplo[1] = " + cValToChar(aExemplo[1])            + CRLF  cMensagem += "aExemplo[2][1] = " + cValToChar(aExemplo[2][1])      + CRLF  cMensagem += "aExemplo[2][2] = " + cValToChar(aExemplo[2][2])      + CRLF  cMensagem += "aExemplo[2][3] = " + cValToChar(aExemplo[2][3])      + CRLF//+----------------------------------------------------------------------------+//|Apresenta uma mensagem com os resultados obtidos                            |//+----------------------------------------------------------------------------+Return MsgInfo(cMensagem, "Exemplo do ADel")