Hallo,

Ich habe einen bestehenden Quellcode. Es gibt eine Klasse, die eine globale Variable hat, z.B.:

markieren

Code:

type TBase = class
  public
    VarState : integer;
end;

Es gibt einige Unterklassen, die diese Basisklasse ableiten und diese Variable verwenden. Nun möchte ich eine neue Unterklasse erstellen und die globale Variable für die weiteren Unterklassen (der neuen Unterklasse) verbergen, also z.B. die Variable private machen, damit man auf diese in den Unterklassen nicht mehr zugreifen kann. Gibt es da eine Möglichkeit?
Ich kann die Variable nicht einfach durch property ersetzten und die property in der neuen Klasse als private deklarieren, weil die Variable an vielen Stellen beim Funktionsaufruf als var-Parameter übergeben wird.

Nein, das widerspricht krass dem Prinzip von Vererbung. Wenn du eine Oberklasse "Tier" hast und eine Integer-Variable "anzahlAugen". Warum willst du dann beim Meerschweinchen plötzlich verbieten, diese Variable abzufragen?

Du kannst es auch nicht verhindern, denn wenn jemand eine Referenz vom Typ "TBase" hat, dann kann das Programm an der Stelle noch nicht einmal wissen dass du die Property/Variable gerne verdecken würdest.

Ich wüsste nicht wie, aber irgendwie klingt das eher nach einen Kraut-und-Rüben-Klassenkonzept.

Wieviele Unterklassen gibt es von der Basisklasse?
Wieviele Unterklassen kommen noch hinzu?
Wäre es eine Option, die Basisklasse nur als Feld in der neuen Klasse einzuführen?

markieren

Delphi-Quellcode:

type
  TBase = class
  public
    VarState: Integer;
  end;

  TYourNewClass = class
  private
    FBase : TBase;
  end;

Oder wie an vielen Stellen z.B. in der VCL:

zusammenfalten · markieren

Delphi-Quellcode:

type
  TCustomBase = class
  private
    FVarState: integer;
  protected
    property VarState: integer read FVarState write FVarState;
  end;

  TBase = class(TCustomBase)
  public
    property VarState;
  end;

In den TCustomXXX-Klassen sind die Properties und Methoden noch protected, die abgeleiteten Klassen erhöhen dann die Sichtbarkeit einfach nur noch selektiv.

Zitat von DeddyH:

In den TCustomXXX-Klassen sind die Properties und Methoden noch protected, die abgeleiteten Klassen erhöhen dann die Sichtbarkeit einfach nur noch selektiv.

genau - nur will er halt genau das Gegenteil. und das spricht für ein zumindest fragwürdiges Klassenmodell.

Zitat von TiGü:

Wäre es eine Option, die Basisklasse nur als Feld in der neuen Klasse einzuführen?

sehe ich auch als einzig sinnvolle Möglichkeit das umzusetzen..

Ja eben. Wenn man bestimmte Methoden oder Eigenschaften nicht veröffentlichen will, leitet man dann halt von der Custom-Klasse ab und lässt die Sichtbarkeit, wie sie ist. Das ist auch die einzige saubere Möglichkeit, da man Sichtbarkeiten eben nur erhöhen und nicht erniedrigen kann.

Eine weitere Möglichkeit wäre sowas wie:

markieren

Delphi-Quellcode:

TBase = class

end;

TVarBase = class(TBase)
  VarState: Integer;
end;

Dann können deine Unterklassen entweder von der Basis mit- oder ohne VarState ableiten.
Deine neue Unterklasse würde dann eben von TBase ableiten, der Rest von TVarBase.