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 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) 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) 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) 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) 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