D2007 Vererbung Constructor

[hanspeter]

Eigentlich sollte es funktionieren, tut es aber nicht.

Hier nochmal ein gekürztes Beispiel.
Es gibt dann viele unterschiedliche WorkClass, die sich bei einem zentralen Handler registrieren und von diesen bei Bedarf instanziert werden.
Hat wer noch einen Tip?

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;


(***************  Beispiel Code *****************)
type
  TBasisClass = class
    ID : String;
    Constructor Create; virtual;
  end;

type
  TGruppenClass = class(TBasisClass)
    const GruppenID='KA';
    Constructor Create; virtual;
  end;

type
  TWorkerClass = class(TGruppenClass)
    Constructor Create;
  end;

type
  TBasisClassClass = class of  TBasisClass;


implementation

{$R *.dfm}

{ TWorkerClass }

var
  Instance : TBasisClassClass;
  Work: TBasisClass;

procedure Register(Classe : TBasisClassClass);
begin
  Instance := Classe;

  Work := Instance.Create;
  if Work.ID = '123' then
    Messagebeep(1);
end;

constructor TWorkerClass.Create;
begin
  ID := '123';
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  Register(TWorkerClass);
end;

{ TGruppenClass }

constructor TGruppenClass.Create;
begin
  inherited;
end;

{ TBasisClass }

constructor TBasisClass.Create;
begin
  inherited;
end;

end.

[sx2008]

Virtuelle Konstruktoren müssen in den abgeleiteten Klassen mit override deklariert werden.

Delphi-Quellcode:

type
  TGruppenClass = class(TBasisClass)
    const GruppenID='KA';
//    Constructor Create; virtual; // falsch
    Constructor Create; override; // richtig
  end;

  TWorkerClass = class(TGruppenClass)
//    Constructor Create;  // falsch
    Constructor Create; override; // richtig
  end;

[hanspeter]

Zitat von sx2008:

Virtuelle Konstruktoren müssen in den abgeleiteten Klassen mit override deklariert werden.

Das wars. Danke.
override schon 100 mal verwendet.
Manchmal hat man Tomaten auf den Augen oder wird langsam alt.

Gruß Peter

[jbg]

Hattest du dir die Warnung, die der Compiler ausgegeben hat, etwa nicht angeschaut?

Zitat:

[DCC Warnung] Unit1.pas(34): W1010 Methode 'Create' verbirgt virtuelle Methode vom Basistyp 'TBasisClass'

[himitsu]

Zitat von jbg:

Hattest du dir die Warnung, die der Compiler ausgegeben hat, etwa nicht angeschaut?

Währe ja auch zu einfach, wenn alle sich das ansehn würden.

Zitat:

Delphi-Quellcode:

var
  Instance : TBasisClassClass;
  Work: TBasisClass;

Das würde ich eher als CLASS VAR mit in die TBasisClass aufnehmen, genauso wie die Register-Methode als CLASS PROCEDURE.

Ist dir denn nicht aufgefallen, daß Register fett ist?
Es gibt schon von der VCL eine Register-Prozedur,
Und dein "Instance" ist keine Instanz, denn darin wird nur die Klasse gepseichert.
Die eigentliche "Instanz" speicherst du allerdings in Worker.

[Sir Rufo]

Zitat von hanspeter:

Zitat von sx2008:

Virtuelle Konstruktoren müssen in den abgeleiteten Klassen mit override deklariert werden.

Das wars. Danke.
override schon 100 mal verwendet.
Manchmal hat man Tomaten auf den Augen oder wird langsam alt.

Gruß Peter

oder du kennst den Shortcut Strg-Space innerhalb der Klassendeklaration nicht, dann kommt das von ganz alleine