FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#5
|
|||
|
|||
Dany:
A ese problema se me ocurre que lo podriamos resolver de la siguiente manera: En la clase Hija definimos atributo por ejemplo DetalleHijo que es un array de objetos de tipo TDetalleHijo, tambien podriamos definirlo de tipo TObjectList, pero para que el ejemplo sea mas claro lo vamos a hacer de la primera forma. Luego en el Formulario Descendiente hacemos lo sigueinte: FORMULARIOS DESCENDIENTES procedure TfNuevoHijo.btnGrabarClick(Sender: TObject); var RegistroHijo : THijo; Begin RegistroHijo := THijo (Registro); //Validaciones puntuales etc. RegistroHijo.GetDatos ( chkActivo.Checked, edDescripcion.Text , etc., Grilla.RowCount-1) ; //Grilla.RowCount es la cantidad de Hijos a crear en RegistroHijo.DetalleHijo // Tomamos los Datos de DetalleHijo for I := 0 to High(RegistroHijo.DetalleHijo) do RegistroHijo.DetalleHijo[i].GetDatos(Grilla.Cells[0, I+1], Grilla.Cells[1, I+1], etc) inherited;//ACA GRABA EN LA TABLA CORRECTA DE ACUERDO AL POLIMORFISMO, en este caso, el metodo InsertarRegistro de THijo se encarga de insertar los registros del array DetalleHijo End; Bueno, espero que al menos se aproxime en algo a lo que queres hacer. Saludos y cariños a la Flia!
__________________
Luciano DG |
|
|
|