Cita:
Empezado por liriko
El ejercicio era el siguiente.
Hay que crear un programa el cual permita al usuario introducir los datos por teclado de Prensa, Novela histarica, novela de ficcion, o novela biografica. Para ello debemos usar una jerarquia de clases, las cuales ya habeis visto. Para implementar el procedure alta, el cual llenara un array polimorfico donde almacenaremos los objetos, debemos usar la Herencia. Para el Procedimiento Mostrar deberemos usar Polimorfismo.
Visto lo visto, lo que me estais aconsejando es que empieze de 0 el programa verdad?
|
Creo que te confundiste al leer el problema. Según entiendo, tanto el procedimiento Alta como Mostrar no deben ser miembros de una clase. Lo único que tienen que hacer es llenar y mostrar un arrar de objetos respectivamente.
Ahora, el poliformismo en esto sería algo como:
Código Delphi
[-]
var
Bibliografia: array [0..99] of TBiblioteca;
procedure Alta(ABiblio: TBiblioteca; Index: Integer);
begin
Bibliografia[Index] := ABiblio
end;
Para llamar a Alta se podría hacer de la siguiente forma:
Código Delphi
[-]
begin
Alta(Novela, 1); Alta(Biografia, 2) end;
Con esto ya estás haciendo uso del poliformismo. Esto es solo un ejemplo de como podría ser. Ya la implementación final queda de tu cuenta.
Saludos...