Abstrakte Klasse mit implementierten Methoden

[Nogge]

Hallo Community,
In Java gibt's abstrakte Klassen, die man nicht direkt erstellen kann. Erst durch's Erstellen einer normalen Klasse, die die abstrakte Klasse erweitert, ist es möglich, auf die Methoden und Attribute der abstrakten Klassen zuzugreifen. Interfaces erlauben nur public-Zugriffsrechte und sind dafür auch nicht gedacht. Kann mir jemand sagen, wie dies in Delphi zu realisieren ist?

mfg nogge

[mkinzler]

In Delphi gibt es eigentlich keine abstrakte Klassen, sondern nur Klassen mit abstrakten Methoden. man kann also Instanzen erzeugen und auch auf die nicht-abstrakten Methoden zugreifen.

[Phoenix]

Hrm. Deklariere doch einfach den Constructor als Abstrakt ;-)

Ansonsten bleibt Dir nichts über, als Methoden die Du eben nicht implementierst als Abstrakt zu setzen.

[jbg]

Zitat:

Zitat von mkinzler

In Delphi gibt es eigentlich keine abstrakte Klassen, sondern nur Klassen mit abstrakten Methoden.

Die gibt es schon (seit Delphi 2006)

Delphi-Quellcode:

type
  TMyAbstractClass = class abstract(TMyBase)
  end;

Nur lässt dich der Compiler immernoch eine Instanz dieser Klasse (mit Warnung) erzeugen.

[Elvis]

Zitat:

Zitat von jbg

Die gibt es schon (seit Delphi 2006)

Delphi-Quellcode:

type
  TMyAbstractClass = class abstract(TMyBase)
  end;

D'Oh! :wall:
Ich hatte es mit "abstract class" probiert und dann angenommen, dass es einfach immer noch nicht geht.
Wer kommt schon auf die Idee es verkehrtrum zu schreiben... :gruebel:

[xaromz]

Hallo,

Zitat:

Zitat von Elvis

Wer kommt schon auf die Idee es verkehrtrum zu schreiben... :gruebel:

in Delphi werden Modifier doch immer hinten ran gestellt. Ich hätte allerdings eher sowas erwartet:

Delphi-Quellcode:

type 
  TMyAbstractClass = class(TMyBase) 
  end abstract;

Gruß
xaromz

[Nogge]

Und ich habe kein Delphi 2006, wie Ihr vllt seht... :(

[Phoenix]

Wie gesagt: deklariere den constructor als abstrakt. Ich habs jetzt nicht ausprobiert, aber das dürfte dazu führen dass die Klasse selber nicht mehr instanziert werden kann :)

[Nogge]

Aso, vergessen zu erwähnen: Man kann den Konstruktor dann zwar nicht mehr mit nem "." auswählen, allerdings akzeptiert der Compiler <Instance>.Create() als ganzes.

[Elvis]

Zitat:

Zitat von Nogge

Aso, vergessen zu erwähnen: Man kann den Konstruktor dann zwar nicht mehr mit nem "." auswählen, allerdings akzeptiert der Compiler <Instance>.Create() als ganzes.

Konstruktoren sind in Delphi komische Viecher.
Du kannst sie als Class methods ausführen: Also Deineklasse.Create; aber auch als Instance methods.
Im ersten Fall wird eine neue Instanz angelegt, im zweiten Fall wird der Initialisierungs-Code des Konstruktors auf die Instanz ausgeführt.

Delphi-Quellcode:

type
  TSomeClass = class
  public
    Hiho : Integer;
    constructor Create;
  end;

constructor TSomeClass.Create;
begin
  Hiho := 2;
end;

var
  obj : TSomeClass;
begin
  obj := TSomeClass.Create();
  obj.Hiho := 1;
  obj.Create(); // geht und wiederholt was immer Create mit der Instanz gemacht hat

  Writeln(obj.Hiho);

Einen Konstruktor als Instanzmethode auszuführen ohne die Instanz vorher angelegt zu haben knallt natürlich...

[Nogge]

Zitat:

Zitat von Nogge

Aso, vergessen zu erwähnen: Man kann den Konstruktor dann zwar nicht mehr mit nem "." auswählen, allerdings akzeptiert der Compiler <Instance>.Create() als ganzes.

Ich habe mich da jetzt noch mal genau mit befasst:
Der Compiler sowie die Entwicklungsumgebung akzeptieren sowohl <class>.Create() als auch <instance>.Create(). Das einzige, was sich durch einen abstrakten Konstruktor verändert, ist die Anzeige des Compilers, wenn man der Unterklasse TTest von TNonVCLThread erben lässt:

Zitat:

[Warning] Test.pas(75): Method 'Create' hides virtual method of base type 'TNonVCLThread'

Das ist dann wohl die "einschränkenste" Fehlermeldung für die Implementierung einer echten abstrakten Klasse :( Naja, besser als nichts. Mithilfe von reintroduce kann man dann den Konstruktor überschreiben, ohne dass diese Warnung erscheint.

[stoxx]

Delphi-Quellcode:

type
  TMyAbstractClass = class abstract(TMyBase)
  end;

für was verwendet man das?
in der Hilfe steht was von: " Ist eine Klasse als abstract markiert, dann kann sie nicht direkt mit dem Konstruktor Create instantiiert werden."
aber irgendwie geht das bei mir trotzdem.


Vielen Dank!

[mkinzler]

Zitat:

aber irgendwie geht das bei mir trotzdem.

Das meinte ich ja, mit es gibt keine richtigen abstrakten Klassen in Delphi.