Klasse um eine funktion erweitern - Vererbung

[tigerman33]

Wieso sollte das nicht funkionieren? Die neue Klasse erbt alles der Vorgängerklasse! Untested, aber so könnte es gehen:

Delphi-Quellcode:

type
  TJvZlibMultipleWithBreak = class(TJvZlibMultiple)
    private
      FBreakPressed: boolean;
    protected
      procedure AddFile(FileName, Directory, FilePath: string; DestStream: TStream); virtual;
    public
      constructor Create(AOwner: TComponent); override;
      property BreakPressed: boolean read FBreakPressed write FBreakPressed;
    end;

constructor TJvZlibMultipleWithBreak.Create(AOwner: TComponent);
begin
  inherited;
  FBreakPressed := false;
end;

procedure TJvZlibMultipleWithBreak.AddFile(FileName, Directory, FilePath: string; DestStream: TStream);
begin
  if not BreakPressed then
    inherited;
end;