Olá amigos,
Tenho uma classe para controlar uma lista de objetos
Cada objeto desta lista será a representação de um registro de uma tabela
Carrego cada objeto em uma váriável 'oItem'.
Local oItem as Object, oListadeObjetos as Object
oItem = CreateObject("Classe1")
oListaObjetos = CreateObject("ListadeObjetos")
Select tabela
Scan
oItem.Load(tabela.IdDoRegistro)
oListadeObjetos.Add(oItem)
EndScan
Ocorre que 'oItem' e 'oListadeObjetos.Item(1)' apontam para o mesmo objeto
Ou seja ao carregar o próximo objeto da tabela, 'oItem.Load(IddoRegistro)',
'oListadeObjetos.Item(1)' também é alterado. Assim minha lista fica com todos os objetos iguais ao primeiro.
Já verifiquei 'set udfparameters', no momento em que chamo 'oListadeObjetos.Add' ele está setado para 'value'. Será que os parâmetros para métodos são sempre passados como referência?
Ou será outro o problema ?
Fox []s.
Edson Oliveira dos Santos