Descrição
aCopy [AS] - Copia Array ou parte do mesmo.
|
Sintaxe
| aCopy( <aDados>, <aCopy>, <nInicio>, <nQtd>, <nPDestino> ) |
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! 😎
