Implementação do LSP

Solid.LSP.pas

unit Solid.LSP;

interface

type
  TClassePai = class
  public
    function GetNome: string;
  end;

  TCLasseDerivada = class(TClassePai)
  end;

implementation

function TClassePai.GetNome: string;
begin
  Result := 'Vinicius';
end;

end.


// LSP
procedure TForm1.MostrarNome;
var
  LClasse: TClassePai;
begin
  LClasse := TCLasseDerivada.Create;
  try
    ShowMessage(LClasse.GetNome); // Vinicius
  finally
    LClasse.Free;
  end;
end;