OOP: Vererbung von Konstruktoren

[Robert_G]

Zitat von Nonsense:

Aber was bringt es mir, dass es angezeigt wird? Darauf zugreifen kann ich doch eh nicht.

Das ist ja der Witz: Es geht trotzdem.

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

type
  Base = class(TObject)
  private
    fX :Integer;
    fY :Integer;
    constructor Create(X, Y :Integer);
  public
    property X :Integer read fX;
    property Y :Integer read fY;
  end;

  Descendant = class(Base)
  private
    fZ :Integer;
  public
    property Z :Integer read fZ;
    constructor Create(X, Y, Z :Integer);
  end;

{ TBase }

constructor Base.Create(X, Y :Integer);
begin
  inherited Create();
  fX := X;
  fY := Y;
end;

{ TSecond }

constructor Descendant.Create(X, Y, Z :Integer);
begin
  inherited Create(X, Y);
  fZ := Z;
  // hier hätte er meckern sollen
  inc(fX);
end;

var
  x                           :string;
begin
  with Descendant.Create(1, 2, 3) do
  try
    Writeln(X, ', ', Y, ', ', Z);
  finally
    Free();
  end;
  Writeln('Zum Beenden bitte den Any-Key suchen... :P');
  Read(x);
end.

Code:

2, 2, 3
Zum Beenden bitte den Any-Key suchen... :P

Zitat von Hansa:

Die Schätzung ist realistisch. Hier im Forum gehe ich sogar eher von 80-90% aus. 8)

Das glaube ich nicht.