La herencia nos evita todo esto. Podemos definir un nuevo objeto partiendo del que ya teníamos. En nuestro caso, conservaremos la base del objeto "Titulo" pero añadiremos el manejo del color y retocaremos "escribe" para que lo contemple.
El nuevo objeto quedaría:
type
TituloColor = object( titulo )
color: byte; { El color, claro }
procedure FijaColores(pluma, fondo: byte); { Pues eso }
procedure Escribe; { Lo escribe de distinta forma }
end;
TituloColor = object( titulo )
color: byte; { El color, claro }
procedure FijaColores(pluma, fondo: byte); { Pues eso }
procedure Escribe; { Lo escribe de distinta forma }
end;
Aunque no lo parezca a primera vista, nuestro objeto sigue teniendo los métodos "FijaCoords" y "FijaTexto". ¿Donde están? Pues en la primera línea:
object ( titulo )
No hay comentarios:
Publicar un comentario