* Penso que o problema ilustrado abaixo se trata de uma limitação do VFP. * Pelo exemplo, concluo que uma classe definida pelo usuário não pode ser * subclassificada mais de uma vez, pois se isso acontecer as classes ficam * pressas em memória, o que é comprovado quando se tenta editar as classes * após instanciá-las, pois o VFP9 emite a mensagem "Remove classes form memory?". ********************************************************************************* Local lo as Classe1 lo = NewObject("Classe1") lo.newClasse2() Release lo ********************************************************************************* Define class Classe1 as Abstract1 Procedure newClasse2 as Boolean Local loClasse2 as Classe2 loClasse2 = NewObject("Classe2") Release loClasse2 EndProc EndDefine ********************************************************************************* Define class Classe2 as Abstract1 * Se esta classe especificar Abstract1 as classes ficam em memória, pois Classe1 já especifica Abstract1 * Se esta classe especificar Abstract2 as classes NÃO ficam em memória, pois nenhuma classe especifica Abstract2 * Assim a conclusão que chego é que não se pode especificar uma classe do usuário mais de uma vez, * visto que as classes ficam em memória quando especifico Classe1 e Classe2 herdaddas de Abstract1 EndDefine ********************************************************************************* Define class Abstract1 as Custom EndDefine ********************************************************************************* Define class Abstract2 as Custom EndDefineNa minha aplicação tenho problemas e penso serem originados no acúmulo de objetos que vão ficando em momória.
