Tal como han dicho, estás incursionando en un
ORM o un "
Framework de Persistencia".
La idea es interesanta, pero a mi entender te falta completar "la pieza" importante.
Tienes:
1)
La clase TCliente. No se si realmente la tienes así definida o simplemnte la has puesto así aquí para simplificar, pero un primer consejo es que todas tus clases de "persistenca" deriven de una clase base (si no lo tienes así).
2) Tienes la
tabla de CLIENTE con sus campos.
3) Tienes
la pieza que te "convierte" un elemento de Entidad-Relacion a un Objeto persistente.
A esta clase, a mi entender, le falta información.
Está claro que el resultado de la ejecución (en tu caso) debe ser un objeto
TCliente. De alguna forma esta función debe llegar a conocer la referencia a la clase TCliente, de forma que el objeto que se cree no sea utilizando TObject sino la referencia a esa clase.
- Una primera prueba que podrías hacer, sería pasar esa referencia como parámetro del procedimiento.
- Una segunda, sería conseguir la referencia de la clase (GetClass) utilizando RTTI. Para ello deberás registrar las clases.
Revisa esta documentación:
http://docwiki.embarcadero.com/RADSt...ass_References