Problema al momento de crear objetos

[lucianojdg]

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!

[Neftali [Germán.Estévez]]

Revisa éste mensaje sobre la utilización de TAG's [ delphi ]...[ /delphi ]