Einzelnen Beitrag anzeigen

Benutzerbild von sx2008
sx2008

Registriert seit: 15. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#2

Re: [OOP] Variable des Vorfahren ersetzen.

  Alt 21. Nov 2009, 15:53
Das was du vor hast "tut man nicht" bzw. es ist ein Zeichen, dass da etwas faul ist.
Eine abgeleitete Klasse darf nicht Variablen des Vorfahren ersetzen.

Es gibt in deinem Fall auch gar keinen Grund myarray durch etwas anderes zu ersetzen.
Wenn du die max. Anzahl der Werte in myarray begrenzen willst, dann gibt es auch andere Wege.
Z.B. könntest du den direkten Zugriff auf myarray verbieten und stattdessen Methoden einführen, die den Zugriff regeln
und eine Obergrenze der Elemente durchsetzen.
Oder zu legst die Grösse des Arrays im Konstruktor fest:


Delphi-Quellcode:
TMyClass = class abstract(TInterfacedObject)
  private
    myarray:Array of Integer;
  protected
    procedure InitMyArray(size:Integer);
  public
    procedure tuwas;
end;

TNewClass = class(TMyClass)
public
  constructor Create;
end;

procedure TMyClass.InitMyArray(size:Integer);
begin
  SetLength(myarray, size);
end;


constructor TNewClass.Create;
begin
  inherited;
  InitMyArray(6);
end;
fork me on Github
  Mit Zitat antworten Zitat