Basisklassenroutine kann nicht auf vererbte Variablen zugreifen?

[implementation]

Ähem ...
Wie wäre es, wenn du die Variable statt auf private mal auf protected stellen würdest?
Private-Zeugs ist in Nachkommen nicht mehr zugänglich.
In dem Screenshot hattest du die Variable dort neu deklariert.
Das heißt: Sie existiert dann auf einmal 2x!
DAS ist das Problem.

[Aphton]

Omg du könntest sogar recht haben..

[hboy]

Ich habe jetzt auf die Schnelle einen Objektzeiger und eine Boolean-Variable bei besagter Basisklassenmethode und bei einer Methode einer abgeleiteten Klasse ausgeben lassen und das beruhigt mich nun irgendwie nicht.

022A5294 False (Basisklasse)
022A524C True (abgeleitete Klasse)

Es ist etwas schwer, ein Beispielschnipselchen zu schreiben, das realitätsgetreu ist, da die Methode nach dem Auslösen eines Clickereignisses mittelbar über einen Ereignisknoten ausgelöst wird - aber auch dieser hat nur eine Liste von TNotifyEvent-Verweisen, die er abarbeitet. Vielleicht spielt es auch eine Rolle, wem die Instanz gehört. (jetzt werde ich vollends paranoid)

[hboy]

Zitat:

Zitat von implementation (Beitrag 1104917)

Ähem ...
Wie wäre es, wenn du die Variable statt auf private mal auf protected stellen würdest?
Private-Zeugs ist in Nachkommen nicht mehr zugänglich.
In dem Screenshot hattest du die Variable dort neu deklariert.
Das heißt: Sie existiert dann auf einmal 2x!
DAS ist das Problem.

der Screenshot ist auch nur just for fun, weil mir die IDE an der Stelle gecrasht ist und dass die Variable dort drinsteht, ist ein Copy&Paste-Fehler (Was bitte ist " auf (???).Personality kann nicht zugegriffen werden." oder so ähnlich für ein IDE-Fehler?)

[Stevie]

Zitat:

Zitat von implementation (Beitrag 1104917)

Ähem ...
Wie wäre es, wenn du die Variable statt auf private mal auf protected stellen würdest?
Private-Zeugs ist in Nachkommen nicht mehr zugänglich.

Innerhalb derselben Unit schon.

[hboy]

Ok, nehmen wir vielleicht einen Schritt Abstand, von außen sehen beide Implementierungen gleich aus,

Delphi-Quellcode:

Type TUserInteractionHandler = class(TObject)
private
    obj: TObject;
    ConnectionIsValid : Boolean;
    IsConnected       : Boolean;
public
    OnDisconnect      : TNotifyEvent;
    procedure Disconnect; 
    procedure VectorObjectsChanged(Sender: TObject); virtual; abstract;
end;

Type TCreatePointHandler = class(TUserInteractionHandler)
public
  procedure VectorObjectsChanged(Sender: TObject); {override;} // edit: das override ist unerheblich.
end;

implementation

procedure TUserInteractionHandler.Disconnect;
begin
  ConnectionIsValid := False;
  IsConnected := False;
  if assigned(OnDisconnect) then OnDisconnect(Self);
end;

procedure TCreatePointHandler.VectorObjectsChanged(Sender: TObject);
begin
  if assigned(obj) and ConnectionIsValid then
     Self.Disconnect;
end;

und zum Zweiten

Delphi-Quellcode:

Type TUserInteractionHandler = class(TObject)
private
    obj: TObject;
    ConnectionIsValid : Boolean;
    IsConnected       : Boolean;
public
    OnDisconnect      : TNotifyEvent;
    procedure Disconnect; 
    procedure VectorObjectsChanged(Sender: TObject); virtual; 
end;

Type TCreatePointHandler = class(TUserInteractionHandler)
end;

implementation

procedure TUserInteractionHandler.Disconnect;
begin
  ConnectionIsValid := False;
  IsConnected := False;
  if assigned(OnDisconnect) then OnDisconnect(Self);
end;

procedure TUserInteractionHandler.VectorObjectsChanged(Sender: TObject);
begin
  if assigned(obj) and ConnectionIsValid then
     Self.Disconnect;
end;

erstere tut das, was man erwartet, letztere nicht. Warum?


ps.: bei anderen Methoden, die etwas direkter aufgerufen werden, löst der Aufruf einen EAbstractError aus, wenn man die Override-Direktive weglässt, bei der angeführten Methode scheint der Aufruf jedoch keinen Fehler zu produzieren, ob man override hinschreibt oder nicht. Es werden keine Warnungen ausgegeben. Übrigens nutze ich den Turbo Delphi Explorer (build 10.0.2228.42451) unter Windows 7 (64 bit)

[Stevie]

Wenn du das override weglässt, verdeckst du die gleichnamige Methode aus der Elternklasse. Das heißt, wenn du eine Variable vom Typ TUserInteractionHandler hast und darauf VectorObjectsChanged aufrufst, gibts nen EAbstractError, weil der Aufruf nicht an die VectorObjectsChanged von TCreatePointHandler geht (Stichwort: Polymorphismus)
Müsste aber Warnings oder Hints beim Kompilieren geben.

P.S. Was erwartet man denn? Was rufst du denn auf?

[hboy]

Ich rufe VectorObjectsChanged auf, um der Handlerinstanz mitzuteilen, dass sich etwas an der Datenstruktur geändert hat, etwa wenn Objekte gelöscht oder hinzugefügt wurden, während der Handler verbunden ist.
Dann wird geprüft, ob nach dem letzten Kenntnisstand noch alles funktioniert hat (ConnectionIsValid)

Wenn das Objekt gelöscht wurde, auf das aktuell zugegriffen wird (dann kann die hinterlegte UID des Objekts nicht mehr aufgelöst werden), wird eben die Existenz des Objekts über die UID in VectorObjectsChanged geprüft und bei dem Befund, dass das Objekt weg ist, wird der Handler abgetrennt. Über OnDisconnect werden dann die zugehörigen Anzeigeelemente zurückgesetzt, sprich der zugehörige tbCheck-ToolButton wird wieder herausgenommen.

Ich kann noch immer nicht erklären, was hier vor sich geht und nein, es gibt keine Warnung, dass eine Methode durch das fehlende Override verdeckt wurde, was auch sehr unlogisch ist.

Delphi-Quellcode:

procedure TCreatePointHandler.VectorObjectsChanged(Sender: TObject);
begin
  if assigned(Manager) and ConnectionIsValid then
  begin
    if VectorObjID > -1 then
     if (Manager.PointGroupList.IndexByID(VectorObjID ) = INDEX_NOT_RESOLVED) then // We've lost him, Sir.
       Self.Disconnect;
  end;
end;

[himitsu]

@implementation: Auf Private-Felder kann man außerhalb der Klasse, aber innerhalb der selben Unit noch zugreifen.

Aus diesem Grunde wurde auch irgendwann ( D2006? ) mal das

Delphi-Quellcode:

strict private

und

Delphi-Quellcode:

strict protected

eingeführt, welches dann auch innerhalb der selben Unit diese Rechte "strikt" durchsetzt.

[Delphianer]

Hallo,

wird das Disconnect nicht aufgerufen oder steht die Variable ConnectionIsValid falsch?
Hast Du auch wirklich nur ein Objekt oder erzeugst Du fälschlicherweise noch ein zweites?

Lutz