[liriko]

Si lees esto, muchas gracias por la informacion.

Ahora mismo no tngo tiempo para ponerme con esto(me voy al trabajo), lo hare luego a la noche, parece ser que todo el trabajo que e hecho durante estos ultimos 2 dias no vale de nada. El razonamiento que deduje fue que, haciendolo con parametros, todos los procedimientos de todas las clases hijas, nietas, le estaba pasando todos los mismos parametros, luego, dentro de cada procediemiento escogia los que necesitaba y los asignaba a una variable.

Código Delphi [-]
 TBiblioteca=class //Clase padre
   private
     Editorial:string;
     Dir_Edit:string;
     Per_Contac:string;
     Tlfno:string[9];
     Poblacion:string[15];
     Provincia:string[15];
   public
     constructor Inicia;
     destructor Destroy;
     procedure Alta(Edit,Dir_Editorial,Persona_Contact,Telefono,Poblac,Prov:string);
     procedure Baja;
     procedure Modificacion;
     procedure Mostrar(Edit,Dir_Editorial,Persona_contact,telefono,Poblac,Prov,Nom,Dir,
                       aut,nom_nov,tisbn,epk,per_prin,tem,pers:string;
                       tip:tipo;
                       ano_publ:integer;
                       autobio:boolean);virtual;
   end;
  
   TNovela=class(TBiblioteca)//Clase que hereda de Biblioteca
   private
     Autor:string;
     Año_Public:Integer;
     Nombre_Nov:string;
     ISBN:string;
   public
     constructor Inicia;
     destructor Destroy;
     procedure alta(Edit,Dir_Editorial,Persona_Contact,Telefono,Poblac,Prov,aut,nom_nov,tisbn:string;
                    ano_publ:integer);
     procedure Mostrar(Edit,Dir_Editorial,Persona_contact,telefono,Poblac,Prov,Nom,Dir,
                       aut,nom_nov,tisbn,epk,per_prin,tem,pers:string;
                       tip:tipo;
                       ano_publ:integer;
                       autobio:boolean);override;
   end;
  
 TPrensa=class(TBiblioteca) //Clase que hereda de Biblioteca
   private
     Nombre:string;
     Director:string;
     Ttipo:Tipo;
   public
     constructor Inicia;
     destructor Destroy;
     procedure alta(Edit,Dir_Editorial,Persona_Contact,Telefono,Poblac,Prov,nom,dir:string; tip:tipo);
     procedure Mostrar(Edit,Dir_Editorial,Persona_contact,telefono,Poblac,Prov,Nom,Dir,
                       aut,nom_nov,tisbn,epk,per_prin,tem,pers:string;
                       tip:tipo;
                       ano_publ:integer;
                       autobio:boolean);override;
   end;
  
 
   Tficcion=class(Tnovela) //Clase que hereda de Novela
   private
     Tema:string;
   public
     constructor Inicia;
     destructor Destroy;
     procedure alta(tem,Edit,Dir_Editorial,Persona_Contact,Telefono,Poblac,
  Prov,aut,nom_nov,tisbn:string;ano_publ:integer);
     procedure Mostrar(Edit,Dir_Editorial,Persona_contact,telefono,Poblac,Prov,Nom,Dir,
                       aut,nom_nov,tisbn,epk,per_prin,tem,pers:string;
                       tip:tipo;
                       ano_publ:integer;
                       autobio:boolean);override;
   end;
  
  
   Tbiografia=class(Tnovela)  //Clase que hereda de Novela
   private
     Personaje:string;
     Autobiografia:boolean;
   public
     constructor Inicia;
     destructor Destroy;
     procedure alta(Pers,Edit,Dir_Editorial,Persona_Contact,Telefono,Poblac,
  Prov,aut,nom_nov,tisbn:string;ano_publ:integer;Autobio:boolean);
     procedure Mostrar(Edit,Dir_Editorial,Persona_contact,telefono,Poblac,Prov,Nom,Dir,
                       aut,nom_nov,tisbn,epk,per_prin,tem,pers:string;
                       tip:tipo;
                       ano_publ:integer;
                       autobio:boolean);override;
   end;

No se si me explico con claridad, la cuestion es que no me funcionaba, lo unico que funcionaba bien eran los parametros de las clases nietas(los propios), esto si lo visualiza bien, lo demas, solo visualiza el ultimo registro que se haya introducido.Creo que estoy al borde de una depresion con esto....En fin, otra vez mas gracias por esta informacion, ya que difiere de lo poco que me han explicado en clase(no me mencionaron lo de las propiedades, nos dijo el que me da clase que se hace con parametros). Cuando puedas, me gustaria que me dijeses, si este que me da clase me dijo que hay que hacerlo con parametros¿Puedo coger y decirle que no tiene ni idea de Polimorfismo??Salu2