aCopy [AS]
Autor: Eurai Criado: 01/01/2016 Atualizado: 27/07/2021Descrição
| Copia Array ou parte do mesmo. |
Sintaxe
| aCopy( |
Parâmetros
| Par | Nome | Tipo | Descrição | Default | Obg | Ref |
| 01 |
aDados | Array | Array a ser clonado | X | ||
| 02 | aCopy | Array | Array a receber a Cópia | X | ||
| 03 | nInicio | Numérico | Inicio da Cópia | 1 | ||
| 04 | nQtd | Numérico | Quantidade de Itens a ser copiado a partir da posição inicial | Len(Array) | ||
| 05 | nPDestino | Numérico | A partir de qual posição do array que receberá os elementos | 1 |
Retorno
| Retorno | Tipo | Descrição |
| aRet | Array |
Endereço do Array Original |
Exemplo
#INCLUDE "TOTVS.CH"
User Function aCopy()
Local aInfo := {}
Local aCopy := Array(6)
aAdd( aInfo, 'UniversoADVPL' )
aAdd( aInfo, 'UniversoADVPL' )
aAdd( aInfo, 'Eurai' )
aAdd( aInfo, 'Eurai' )
aAdd( aInfo, 'Rapelli' )
aAdd( aInfo, 'Rapelli' )
aAdd( aInfo, 'ADVPL' )
aAdd( aInfo, 'ADVPL' )
aAdd( aInfo, 'UniversoADVPL' )
aAdd( aInfo, 'UniversoADVPL' )
aCopy( aInfo, aCopy, 3, 6 )
MsgInfo( aCopy[01] + CRLF + ;
aCopy[02] + CRLF + ;
aCopy[03] + CRLF + ;
aCopy[04] + CRLF + ;
aCopy[05] + CRLF + ;
aCopy[06] + CRLF;
, 'UniversoADVPL' )
Return( Nil )
Resultado
Informações adicionais
|
Para copiar, o array destino deve possuir a mesma estrutura do origem; ou seja; se for copiar 10 posições de array origem de 100 posições, destino deve possuir 10 elementos vazios |
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎