Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-11-2005
DANY DANY is offline
Miembro
 
Registrado: nov 2003
Posts: 145
Poder: 23
DANY Va por buen camino
Problema al momento de crear objetos

Bueno, mas que una duda necesito que me tiren ideas para la solucion optima de un problema. El tema es el siguiente. En mi proyecto manejo una clase por tabla de BD por correspondencia de operaciones con los de la BD.Los metodos son por lo gral. "overright" heredados de una clase base para aprovecharlos en la herencia visual.
Supongamos el metodo InsertarRegistro override ;
La idea es aprovechar al maximo el polimorfismo de las clases en la herencia visual, para ello hago lo siguiente: (a modo de ej. resumido)

Formulario Base :
Código Delphi [-]
 procedure TfNuevoGenerico.btnGrabarClick(Sender: TObject);
 Begin
   try
     ComenzarTransaccion;
     Registrio.InsertarRegistro; //Registro es un objeto de la clase base.
     CerrarTransaccion;
 
   except
     Rollback
   End;
 
 End;
 
 FORMULARIOS DESCENDIENTES
 procedure TfNuevoHijo.btnGrabarClick(Sender: TObject);
 Begin
  //Validaciones puntuales etc. 
  THijo (Registro).GetDatos ( chkActivo.Checked, edDescripcion.Text , etc.) ;
 
   inherited;//ACA GRABA EN LA TABLA CORRECTA DE ACUERDO AL POLIMORFISMO
 
 End;
 Hasta ahi todo magnifico, pero que hago cuando por ej tengo que 
 recorrer una grilla e ir insertando registros. Por ej.
 
 procedure TfNuevoGenerico.btnGrabarClick(Sender: TObject);
 var N: Integer ;
 Begin
   try
     ComenzarTransaccion;
     
     For N:= 1 to Grilla.RowCount -1 do
     Begin
  //      THijo (Registro).GetDatos (...)
 //este es el problema
 //como hago referencia a la clase hija correcta?
        Registro.InsertarRegistro ;
     End;
     CerrarTransaccion;
 
   except
     Rollback;
   End;
 
 End;
GetDatos es puntual para cada clase y no lo puedo meter
adentro del For generico.

El problema es que recien hay es donde se los valores que le tengo que pasar a la funcion GetDatos dado que depende de lo cargado por el usuario en la grilla. Como solucion estoy desaprovechando la potencia del polimorfismo y estoy replicado codigo cada vez que me encuentro con una grilla. Espero no haber sido demasiado confuso en mi explicacion, pero es un problema muy puntual.
Ustedes como resolverian esto??

Muchas gracias por su tiempo.

Última edición por Neftali [Germán.Estévez] fecha: 02-11-2005 a las 09:59:50. Razón: Eliminar líneas largas, para mejorar la lectura...
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 22:45:31.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi