Sichtbarkeit einer Methode erhöhen?

[himitsu]

Joar, also bei den Property kann man doch recht einfach die Sichtbarkeit nachträglich herhöhen.

Delphi-Quellcode:

type
  THiddenClass = class
  protected
    property Irgendwas: Integer read GetWas write SetWas;
  end;

  TVisibleClass = class(THiddenClass)
  public
    property Irgendwas;
  end;

Warum kann man das aber nicht mit den Methoden machen
oder hab ich nur noch nicht rausbekommen, wie sowas geht?

Gut, möglich wäre ja die gewünschte Methode zu überschreiben (verdecken) und dann via inherited die versteckte Methode aufzurufen, aber so sonderlich elegant ist das nicht unbedingt.

[Panthrax]

Ich verstehe die Frage nicht. Funktioniert doch genau so, man muss sie allerdings überschreiben.

[DeddyH]

Nein. Zugegeben, ich musste das auch erst 2 mal lesen. Es geht ihm darum, die Methode in der geerbten Klasse nicht neu implementieren zu müssen, sondern einfach wie bei Properties nach public schieben und gut.

[himitsu]

@DeddyH: Genau.

Delphi-Quellcode:

type
  THiddenClass = class
  protected
    procedure Irgendwas;
  end;

  TVisibleClass = class(THiddenClass)
  public
    procedure Irgendwas;  // hier muß man ja die Methode nochmal implementieren,
  end;                    // auch wenn man sie NUR verschieben möchte

[HERMES]

Delphi-Quellcode:

type 
  THiddenClass = class 
  protected 
    procedure Irgendwas; virtual;
  end; 

  TVisibleClass = class(THiddenClass) 
  public 
    procedure Irgendwas;  override;// hier muß man ja die Methode nochmal implementieren, 
  end;                    // auch wenn man sie NUR verschieben möchte


implementation

procedure TVisibleClass.Irgendwas;
begin
   inherited Irgendwas;
end;

[uligerhardt]

Zitat von himitsu:

@DeddyH: Genau.

Delphi-Quellcode:

type
  THiddenClass = class
  protected
    procedure Irgendwas;
  end;

  TVisibleClass = class(THiddenClass)
  public
    procedure Irgendwas;  // hier muß man ja die Methode nochmal implementieren,
  end;                    // auch wenn man sie NUR verschieben möchte

Das wäre jetzt auch die einzige Lösung, die mir einfällt. Das hier kannst du ja trotzdem benutzen (WIMRE - soll heißen: ungetestet ):

Zitat von HERMES:

Delphi-Quellcode:

procedure TVisibleClass.Irgendwas;
begin
   inherited Irgendwas;
end;

Du kannst die "überladene" Routine noch als inline deklarieren. Dann hast du zumindest keine/geringere Laufzeiteinbußen.

[himitsu]

@HERMES: so würde man die Methode überschreiben, aber das will ich ja nicht.

Im Ergebnis (TVisibleClass) soll die Methode (aus THiddenClass) einfach nur sichtbar werden, so als wäre sie in Public deklariert wurden, obwohl sie in THiddenClass ja versteckt (protected) ist.

[Stevie]

Du bräuchtest quasi sowas:

Delphi-Quellcode:

type
  THiddenClass = class
  protected
    procedure Irgendwas; virtual;
  end;

  TVisibleClass = class(THiddenClass)
  public
    procedure Irgendwas; inherited;
  end;

Das gibt Delphi nicht her - wär aber ein nettes Enhancement.
Hätte aber imho keinen wirklichen Nutzen, sondern unterstützt nur die Faulheit eines Programmierers in einigen wenigen Fällen.

[himitsu]

Zitat von Stevie:

Das gibt Delphi nicht her - wär aber ein nettes Enhancement.
Hätte aber imho keinen wirklichen Nutzen, sondern unterstützt nur die Faulheit eines Programmierers in einigen wenigen Fällen.

Wieso Faulheit?

So könnte man eine Grundklasse erstellen und braucht dann nur, je nach Nutzen, die nötigen Funktionen freischalten.

Also genauso, wie es bei den TCustom...-Klassen der VCL auch gemacht wird.
Leider funktioniert dieses aber nur mit Properties, aber eine Klasse besteht eben auch noch aus Methoden.

Das virtual ist nicht nöig, aber so wäre es schon irgendwie OK.

Delphi-Quellcode:

type
  THiddenClass = class
  protected
    procedure Irgendwas;
  end;

  TVisibleClass = class(THiddenClass)
  public
    procedure Irgendwas; inherited;
  end;

procedure THiddenClass.Irgendwas;
begin
end;

[Stevie]

Zitat von himitsu:

Zitat von Stevie:

Das gibt Delphi nicht her - wär aber ein nettes Enhancement.
Hätte aber imho keinen wirklichen Nutzen, sondern unterstützt nur die Faulheit eines Programmierers in einigen wenigen Fällen.

Wieso Faulheit?

So könnte man eine Grundklasse erstellen und braucht dann nur, je nach Nutzen, die nötigen Funktionen freischalten.

Kann man doch, sind nur einige Zeilen Code mehr zu schreiben.