Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Array passado por referência
Message
De
26/02/2005 21:58:57
 
 
À
26/02/2005 17:39:39
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows 2000 SP4
Divers
Thread ID:
00990871
Message ID:
00990934
Vues:
15
Fernando,

A orientação do Hilmar me proporcionou a solução que ficou assim:
Local array laArray[2]
External array laArray2
* ---------------------------------------------
laArray[1] = "Primeiro"
laArray[2] = "Segundo"
ReceberArray(@laArray)
? laArray[1]
? laArray[1]
* ---------------------------------------------
Procedure ReceberArray(laArray2) as Boolean
  laArray2(1) = laArray2(1) + " - Alterado"
  laArray2(2) = laArray2(2) + " - Alterado"
EndProc
>Geraldo,
>
>Não posso te dizer com certeza, mas acho que o problema é a declaração "Local array laArray[2]". Tenta "Private array laArray[2]".
>
>Fernando
>
>>Pessoal,
>>
>>Como passar um array por referência a uma função sem dar problema ao compilar?... vejam o exemplo abaixo:
>>
>>
>>Local array laArray[2]
>>* ---
>>laArray[1] = "Primeiro"
>>laArray[2] = "Segundo"
>>ReceberArray(@laArray)
>>? laArray[1]
>>? laArray[1]
>>* ---
>>Procedure ReceberArray(taArray) as Boolean
>>  taArray[1] = taArray[1] + " - Alterado"
>>  taArray[2] = taArray[2] + " - Alterado"
>>EndProc
>>
>>
>>Ao tentar compilar o VFP8 emite a seguinte mensagem:
>>
>>Locate File
>>Locate
>>Ignore
>>Ignore all
>>Cancel
>>Unable to find Unknown TAARRAY
>>
>>
>>Sei que posso declarar outro array local em ReceberArray, copiar o taArray pro array local, trabalhar com o local, depois copiar pra taArray novamente, mas como posso resolver isso sem declarar novo array?...
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform