El Proyecto | Sobre nosotros | Contribuir | Donaciones | Licencia

HOME

En este tema, exploraremos dos conceptos fundamentales en la Programación Orientada a Objetos (POO): las interfaces y las clases abstractas. Ambos son herramientas poderosas que permiten diseñar sistemas más flexibles y mantenibles.

Conceptos Clave

Interfaces

Una interfaz es un contrato que define un conjunto de métodos que una clase debe implementar. Las interfaces no contienen implementación de métodos, solo sus firmas.

Características de las Interfaces:

No pueden contener implementación de métodos.
No pueden tener campos (variables de instancia).
Una clase puede implementar múltiples interfaces.

Clases Abstractas

Una clase abstracta es una clase que no puede ser instanciada directamente y puede contener tanto métodos abstractos (sin implementación) como métodos concretos (con implementación).

Características de las Clases Abstractas:

Pueden contener métodos abstractos y concretos.
Pueden tener campos.
Una clase puede heredar de una sola clase abstracta.

Ejemplo Práctico

Definiendo una Interfaz

type
  IFigura = interface
    ['{8A5A1E2B-3B6A-4A5B-9A5A-1E2B3B6A4A5B}']
    function Area: Double;
    function Perimetro: Double;
  end;

Implementando la Interfaz en una Clase

type
  TRectangulo = class(TInterfacedObject, IFigura)
  private
    FAncho, FAlto: Double;
  public
    constructor Create(Ancho, Alto: Double);
    function Area: Double;
    function Perimetro: Double;
  end;

constructor TRectangulo.Create(Ancho, Alto: Double);
begin
  FAncho := Ancho;
  FAlto := Alto;
end;

function TRectangulo.Area: Double;
begin
  Result := FAncho * FAlto;
end;

function TRectangulo.Perimetro: Double;
begin
  Result := 2 * (FAncho + FAlto);
end;

Definiendo una Clase Abstracta

type
  TFigura = class abstract
  public
    function Area: Double; virtual; abstract;
    function Perimetro: Double; virtual; abstract;
  end;

Heredando de una Clase Abstracta

type
  TCuadrado = class(TFigura)
  private
    FLado: Double;
  public
    constructor Create(Lado: Double);
    function Area: Double; override;
    function Perimetro: Double; override;
  end;

constructor TCuadrado.Create(Lado: Double);
begin
  FLado := Lado;
end;

function TCuadrado.Area: Double;
begin
  Result := FLado * FLado;
end;

function TCuadrado.Perimetro: Double;
begin
  Result := 4 * FLado;
end;

Comparación entre Interfaces y Clases Abstractas

Característica	Interfaces	Clases Abstractas
Implementación de Métodos	No	Sí (parcialmente)
Herencia Múltiple	Sí	No
Campos	No	Sí
Uso Principal	Definir contratos	Proveer una base común con implementación parcial

Ejercicio Práctico

Ejercicio 1: Implementar una Interfaz

Define una interfaz IVehiculo con los métodos Arrancar y Detener.
Implementa la interfaz en una clase TCoche.

Solución

type
  IVehiculo = interface
    ['{D1E2F3A4-B5C6-7D8E-9F0A-B1C2D3E4F5A6}']
    procedure Arrancar;
    procedure Detener;
  end;

type
  TCoche = class(TInterfacedObject, IVehiculo)
  public
    procedure Arrancar;
    procedure Detener;
  end;

procedure TCoche.Arrancar;
begin
  Writeln('El coche ha arrancado.');
end;

procedure TCoche.Detener;
begin
  Writeln('El coche se ha detenido.');
end;

Ejercicio 2: Heredar de una Clase Abstracta

Define una clase abstracta TAnimal con los métodos Hablar y Moverse.
Crea una clase TPerro que herede de TAnimal e implemente los métodos.

Solución

type
  TAnimal = class abstract
  public
    procedure Hablar; virtual; abstract;
    procedure Moverse; virtual; abstract;
  end;

type
  TPerro = class(TAnimal)
  public
    procedure Hablar; override;
    procedure Moverse; override;
  end;

procedure TPerro.Hablar;
begin
  Writeln('El perro ladra.');
end;

procedure TPerro.Moverse;
begin
  Writeln('El perro corre.');
end;

Conclusión

En esta sección, hemos aprendido sobre interfaces y clases abstractas, dos conceptos esenciales en la POO que permiten diseñar sistemas más modulares y flexibles. Las interfaces definen contratos que las clases deben cumplir, mientras que las clases abstractas proporcionan una base común con implementación parcial. Ambos conceptos son fundamentales para crear aplicaciones robustas y mantenibles en Delphi/Object Pascal.

En el próximo tema, exploraremos el manejo de excepciones en la Programación Orientada a Objetos, lo que nos permitirá gestionar errores de manera más efectiva en nuestras aplicaciones.

Interfaces y Clases Abstractas

Conceptos Clave

Interfaces

Clases Abstractas

Ejemplo Práctico

Definiendo una Interfaz

Implementando la Interfaz en una Clase

Definiendo una Clase Abstracta

Heredando de una Clase Abstracta

Comparación entre Interfaces y Clases Abstractas

Ejercicio Práctico

Ejercicio 1: Implementar una Interfaz

Solución

Ejercicio 2: Heredar de una Clase Abstracta

Solución

Conclusión

Curso de Programación en Delphi/Object Pascal

Módulo 1: Introducción a Delphi/Object Pascal

Módulo 2: Estructuras de Control y Procedimientos

Módulo 3: Trabajando con Datos

Módulo 4: Programación Orientada a Objetos

Módulo 5: Características Avanzadas de Delphi

Módulo 6: Desarrollo de GUI con VCL y FMX

Módulo 7: Desarrollo Web y Móvil

Módulo 8: Mejores Prácticas y Patrones de Diseño

Módulo 9: Proyecto Final