Einzelnen Beitrag anzeigen

mumu

Registriert seit: 28. Okt 2003
Ort: Bamberg
519 Beiträge
 
#1

Klasse um eine funktion erweitern - Vererbung

  Alt 21. Sep 2005, 11:15
Hallo leute!

ich möchte die Klasse TJvZlibMultiple so erweitern, damit ich während des packvorgangs auch abbrechen kann. in der Function AddFile müsste ich da eine überprüfung einbauen, ob eine variable isBreakPressed auf true ist, um dann das packen abzubrechen.

wie muss ich da vorgehen?
hier ein ausschnitt der ursprünglichen klasse

Delphi-Quellcode:
TJvZlibMultiple = class(TJvComponent)
  private
    ...
  protected
    procedure AddFile(FileName, Directory, FilePath: string; DestStream: TStream);
    procedure DoProgress(Position, Total: Integer); virtual;
  public
    constructor Create(AOwner: TComponent); override;

    function CompressFiles(Files: TStrings): TStream; overload;
    ...
  published
    ...
  end;
und hier meine vererbte
Delphi-Quellcode:
type
  TJvZlibMultipleWithBreak = class(TJvZlibMultiple)
    private
      isBreakPressed: boolean;
    public
      constructor Create(AOwner: TComponent); override;
    protected
      procedure AddFile(FileName, Directory, FilePath: string; DestStream: TStream); override;
    end;
bei AddFile beschwert er sich: "Eine statische Methode kann nicht überschrieben werden"
was mach ich falsch, bzw. besser gesagt bin ich da aufn richtigen weg, oder wie geh ich das an?

danke schonmal
  Mit Zitat antworten Zitat