Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#3

Re: [OOP] Variable des Vorfahren ersetzen.

  Alt 21. Nov 2009, 16:55
Was einmal deklariert iast, läßt sich nicht mehr ändern.

Denn der Code, welcher theoretisch in de Basisklasse diese Variable nutzt, müßte sich ja auch ändern, wenn du diese Variablendeklaration änderst, was er aber nicht macht bzw. nicht machen kann.

du müßtest also in der Basis nur die Zugriffspunkte definieren
und in der Ableitung diese dann auf deine "neue" Variable umleiten.
Delphi-Quellcode:
TMyClass = class abstract(TInterfacedObject)
  private
    function GetMyArray(Index: Integer): Integer; virtual; abstact;
    procedure SetMyArray(Index, Value: Integer); virtual; abstact;
    property MyArray[Index: Integer]: Integer read GetMyArray write SetMyArray;
  public
    procedure tuwas; virtual; abstact;
end;

TNewClass = class(TMyClass)
  private
    FMyArray: Array[0..5] of Integer;
    function GetMyArray(Index: Integer): Integer; override;
    procedure SetMyArray(Index, Value: Integer); override;
  public
    procedure tuwas; override;
end;
$2B or not $2B
  Mit Zitat antworten Zitat