Basisklassenroutine kann nicht auf vererbte Variablen zugreifen?

[hboy]

Zitat von Stevie:

Dass OnDisconnect nil ist, ist klar. Es handelt sich hier um ein Event (Methodenpointer) und da generell alles in einem Objekt erstmal genullt wird, ist dieser Pointer nil. Du musst dem Event einen Eventhandler zuweisen.

Das Zuweisen geschieht bereits beim Erzeugen der Instanz. Ungeachtet der Zuweisung, die auch beim Aufruf von Connect() erfolgen könnte, sehen andere Methode das Event als korrekt zugewiesen, nur beim Sprung in die Methode der Basisklasse wird sie als nil aufgelöst.

[Stevie]

Zitat von hboy:

nur beim Sprung in die Methode der Basisklasse wird sie als nil aufgelöst.

Und der geschieht ganz normal über inherited?

[hboy]

Ich schreibe mal ein Beispiel dazu, mein erster Versuch ist an der Delphi IDE gescheitert ...

[Aphton]

Wartet mal, bleiben wir beim Ausgangsproblem, beim Abstrakten.

Denn dieses angeführte Beispiel funktioniert bei mir unter Turbo Delphi Explorer.
Ich habs so gemacht:

Delphi-Quellcode:

var
  B: TBasisKlasse;

begin
  B := TAbgeleiteteKlasse.Create;
  try
    B.Variable := False;
    if B.TestVariable then Writeln('Testvariable #1');
//    TAbgeleiteteKlasse(B).ModifiziereVariable;
    (B as TAbgeleiteteKlasse).ModifiziereVariable;
    if B.TestVariable then Writeln('Testvariable #2');
  finally
    B.Free;
    Readln;
  end;
end.

Das zweite Writeln klappt. Also klappt das Ändern der Variable per ModifiziereVariable!

[hboy]

ich habe eben das hier implementiert:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type TBaseClass = class
private
  B: Boolean;
public
  function ReturnVal: Boolean; virtual;
  procedure SetToTrue; virtual; abstract;
end;

type TDerivedClass = class(TBaseClass)
public
  procedure SetToTrue; override;
end;


function TBaseClass.ReturnVal: Boolean;
begin
  result := B;
end;

procedure TDerivedClass.SetToTrue;
begin
  B := True;
end;


var
  inst: TBaseClass;
begin
  inst := TDerivedClass.Create;
  (inst as TDerivedClass).SetToTrue;

  writeln(BoolToStr(inst.ReturnVal,true));
  readln;
end.

und es tut auch... ich suche mal weiter!

[Aphton]

Also besteht das Problem immernoch, wenn du die abstrakte Definition von SetToTru in TBaseClass entfernst?
Ist mal interessant... Also was für ne Delphi Version benutzt du? (Weil ich hier das Problem nicht habe!)

Edit: Omg deine Signatur ist köstlich!

[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)

[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]

Zitat von 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.

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?)