aCopy - Resultado

aCopy

 

Descrição

Copia Array ou parte do mesmo

Sintaxe

aCopy( <aDados>, <aCopy>, <nInicio>, <nQtd>, <nPDestino> )

Parâmetros

ParNomeTipoDescriçãoDefaultObgRef
01aInfoArrayArray a ser clonadoX
02aCopyArrayArray a receber a Cópia.X
03nInicioNuméricoInicio da Cópia1
04nQtdNuméricoQuantidade de Itens a ser copiado a partir da posição inicial.Len(Array)
05nPDestinoNuméricoA partir de qual posição do array que receberá os elementos.1

Retorno

RetornoTipoDescrição
aRetArrayEndereço do Array Original

Exemplo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#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

aCopy - Resultado

aCopy – Resultado

aCopy - Resultado

aCopy – Resultado

Informação Adicional

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.

0 respostas

Deixe uma resposta

Want to join the discussion?
Feel free to contribute!

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *