Funciones que devuelven objetos

[[AzidRain]]

En un proyecto que estoy haciendo se me ocurrió una función que me devolviera un objeto pero me encuentro en una interrogante: Si devuelve un objeto...¿Quien lo crea? la función o quien llama a la función?

Código Delphi [-]
Function GetTabla(nombre:String):TDataset;
var aTabla: TDataset
Begin
    aTabla := Tdataset.create(nil);
    GetTabla := aTabla;  // devolver la tabla recien creada
                                 // pero entonces...quien la destruye?¡???
                                // no se pierde al salir de la función??
end;
 
Procedure HazAlgo;
var unaTabla: TDataset;
Begin
   unaTabla := GetTabla("datos");   ///<--- Se puede hacer esto???
                                               // Pero si unaTabla no se ha construido?     
end;

Mi Teoría:

Se supone que todas las instancias de un objeto son simples punteros partimos de que en la funcion HazAlgo efectivamente unaTabla, al no crearse no reserva memoria para el objeto TDataset, esto lo hace la funcion GetTabla dentro de su codigo y devuelve el puntero a la memoria recientemente reservada (la funcion no la libera destruyendo el objeto que creo). Entonces asumo que unaTabla apunta al Objeto que cre{o la función, por lo que entonces, tendré que destruir directamente unaTabla para liberarla.

Quedando así:

Código Delphi [-]
Procedure HazAlgo;
var unaTabla: TDataset;
Begin
   unaTabla := GetTabla("datos");   //equivaldría a Tdataset.create(nil)
  Try
    { uso una tabla
     .
     .
     .
     }
  finally
    unaTabla.free; // Libero la memoria
  end;
 end;

Segun mi teoria este último código debe ser completamente válido...pero no lo sé hasta probarlo..

Alguna sugerencia? A lo mejor no estoy descubriendo nada nuevo...

[roman]

Está bien lo que haces. La función es la que crea el objeto y quien lo recibe se encarga de destruirlo.

// Saludos

[[AzidRain]]

Gracias Roman. Ya lo probe y si era asi como tu bien me confirmas.

Que feo es cuando deja uno algo y luego lo retoma...se te barren muchas cosas

[[Lepe]]

Para estos temas soy muy quisquilloso, cambiaría el nombre de la función a "CreateTable", "CreateDataset", "AllocDataset", es decir, un nombre que al verlo en la función HazAlgo, identifique que AllocDataset crea internamente un Dataset y por tanto en HazAlgo tengo que destruirlo con free.

"GetDataset" a mí personalmente, no me indica si realmente se crea algo, o es un apuntador a un dataset existente. El hecho es que siempre se me olvida que tengo que destruirlo y acabo revisando el código fuente de "GetDataset" (perdiendo más tiempo). Con un nombre más apropiado, el código se hace más entendible.

saludos

[roman]

Empezado por Lepe

Para estos temas soy muy quisquilloso

¡Y qué bueno que lo seas! Estoy totalmente de acuerdo contigo. Semánticamente debe quedar claro que la función es una creadora o fábrica de objetos. Me alegra que hayas hecho la observación.

// Saludos

[dec]

Hola,

Pues yo, puñeteramente, pregunto, porque dudo: el identificador puede dejar claro que se creará un objeto, estamos de acuerdo, pero, ¿queda claro que dicho objeto habremos de liberarnos nosotros? ¿Habría alguna forma de dejar esto claro también -a lo mejor ya lo está y a mí no me lo parece- o acaso es algo que hay que dar por sabido? ¿Eh? ¿Eh? ¿Eh?