Compilerverhalten bei nicht implementierten abstrakten Methoden

[Codehunter]

Ahoi!

Wenn ich eine Basisklasse mit verschiedenen abstrakten Methoden baue und eine solche Methode in einer abgeleiteten Klasse nicht implementiere, bekomme ich eim Kompilieren eine Warnung im Log. Kann man irgendwo einstellen, dass statt der Warnung ein Fehler erzeugt wird? Ich möchte sozusagen die Implementierung erzwingen, andernfalls sich das Programm nicht übersetzen lässt. Ich meine mich dunkel zu erinnern, dass das früher bei Delphi 5 oder 7 das Standardverhalten war.

Besonders elegant wäre es, wenn ich dieses Verhalten per Compilerschalter abschnittsweise oder unitweise aktivieren könnte.

Grüße
Cody

[mkinzler]

Jein. Man kann bei neuren Delphiversionen die Klasse als abtrakt delarieren, dann lässt sich der Quellcode ohne Implementierung nicht mehr kompilieren.

[Codehunter]

Zitat von mkinzler:

Jein. Man kann bei neuren Delphiversionen die Klasse als abtrakt delarieren, dann lässt sich der Quellcode ohne Implementierung nicht mehr kompilieren.

Gib mir mal nen kleinen Schubs, ich hab grad hitzebedingte Denkblockade

[himitsu]

= class abstact statt = class .

class sealed und irgendwas mit final gibt es auch noch.


[add] http://docwiki.embarcadero.com/RADSt...es_and_Objects
http://docwiki.embarcadero.com/RADSt...jekte_(Delphi)


@mk

Zitat:

Hinweis: Delphi lässt die Instantiierung einer als abstract deklarierten Klasse aus Gründen der Abwärtskompatibilität zu, aber dieses Feature sollten nicht mehr verwendet werden.

[mkinzler]

Delphi-Quellcode:

  TAbtract = class
    procedure Proc1; virtual; abstract;
  end;

  TStrictAbstract = class abstract
    procedure Proc1; virtual; abstract;
  end;

Aber kompilieren lässt sich das immer noch. Es knallt halt früher.

[Codehunter]

Zitat von mkinzler:

Aber kompilieren lässt sich das immer noch. Es knallt halt früher.

Genau deswegen fragte ich ja. Hier mein Versuch, der sich aber auch problemlos übersetzen lässt und erst eine Runtime-Exception wirft wenn man die abstrakte Methode aufruft. Im Grunde also kein anderes Verhalten als bei nicht abstrakter Basisklasse. Insofern sehe ich grad den Unterschied nicht.

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TBasis = class abstract (TObject)
  protected
    procedure Foo; virtual; abstract;
  end;

  TKind = class (TBasis)

  end;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  K: TKind;
begin
  K:= TKind.Create;
  K.Foo; // <-- EAbstractError
  K.Free;
end;

end.

[Fritzew]

In den Projektoptionen Hinweise und Warnungen
kannst Du die Warnung auf Fehler stellen dann sollte es knallen.

[Codehunter]

Zitat von Fritzew:

In den Projektoptionen Hinweise und Warnungen
kannst Du die Warnung auf Fehler stellen dann sollte es knallen.

Da kann ich die Warnung ein- und ausschalten (true/false). Eine Umstellmöglichkeit auf Fehler sehe ich nicht.

[Fritzew]

Bei mir sieht das so aus!

Eventuell ist das in der Starter anders?

[Der schöne Günther]

Projektoptionen -> Delphi-Compiler -> Hinweise und Warnungen -> Ausgabewarnungen -> "Konstruierende Instanz enthält abstrakte Methode" => Auf "Fehler" einstellen.