Cita:
Empezado por liriko
¿Lo que e hecho es una chapuza?
|
Tú no. Tu profesor!!
¿Solucionarlo? No sé qué decirte. Quizá, por dar el beneficio de la duda al profesor, sería bueno ver cuáles fueron los requerimientos originales de la práctica.
Empecemos con el hecho de que semánticamente hablando los métodos alta y mostrar no les encuentro ningún sentido. ¿Qué significa dar de alta un libro?
Para mí, en todo caso, significaría crear una instancia de la clase TLibro, llenar sus propiedades con datos proporcionados por el usuario y guardar la instancia en un almacenaje permanente como podría ser una base de datos.
Piénsalo así:
Si tienes una clase
Código Delphi
[-]
type
TLibro = class
propiedades
procedure Alta(parámetros);
end;
implementation
procedure TLibro.Alta(parámetros);
begin
propiedades := parámetros);
end;
Realmente te puedes ahorrar las clases y usar
records:
Código Delphi
[-]
type
TLibro = record
propiedades
end;
procedure Alta(parámetros);
interface
procedure Alta(Libro: TLibro; parámetros);
begin
Libro.propiedades := parámetros;
end;
con lo cual se quita el disfraz OOP a las clases.
// Saludos