Fórum Duvida com Herança de Classes #408361

// *****************************************************************************
// Classe TRenomear - Classe Modelo
// *****************************************************************************

type
  // Classe
  TRenomear = class
  public
    constructor Create; virtual; abstract;
  published
    procedure Executar(PListView: TListView); virtual; abstract;
  end;

  // *****************************************************************************
  // Classe TContador - Adiciona um contador ao nome do arquivo
  // *****************************************************************************
  TContador = class(TRenomear)
  private
    FNumeroInicial: integer;
    FTexto: string;
    FNomeOriginal: boolean;
  public
    constructor Create(PNumeroInicial: integer; PNomeOriginal: boolean; PTexto: string); overload;
  published
    procedure Executar(PListView: TListView); override;
  end;

implementation

// *****************************************************************************
// Classe TContador
// *****************************************************************************

constructor TContador.Create(PNumeroInicial: integer; PNomeOriginal: boolean; PTexto: string);
begin
  // Passando Parâmetros
  FNumeroInicial := PNumeroInicial;
  FTexto := PTexto;
  FNomeOriginal := PNomeOriginal;
end;

procedure TContador.Executar(PListView: TListView);
begin

  // Efetuar as alterações na ListView...

  inherited;
end;

end.

TRenomear(ObjectList[0]).executar;