Polimorfismo en Delphi5

[[maeyanes]]

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
  // Arreglo de objetos del tipo biblioteca
  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); // Agregas un objeto de tipo TNovela
  Alta(Biografia, 2) // Agregas un objeto de tipo TBiografia
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...