nach inherited Create ist self=nil

[Captnemo]

Hi,

ich habe eine Klasse, in der ich den Constructor überschreibe, und zwei eigene benutzen möchte.
(Nicht wundern, dass im Create noch nichts weiter drin ist. Kommt noch).

Deklaration:

Delphi-Quellcode:

    constructor Create; overload;
    constructor Create(Drucker: string; Kopien: Integer; KassenList: TKassenList; WarengruppenList: TWarengruppenList); overload;

die Constructoren:

Delphi-Quellcode:

constructor TDruckMonatsabschlussDetails.Create;
begin
  inherited Create;
end;

constructor TDruckMonatsabschlussDetails.Create(Drucker: string;
  Kopien: Integer; KassenList: TKassenList;
  WarengruppenList: TWarengruppenList);
begin
  inherited Create;
  self.FDrucker:=Drucker;
  self.FKopien:=Kopien;
  self.FKassenList:=KassenList;
  self.FWarengruppenList:=WarengruppenList;
end;

Wenn ich jetzt den Constructor mit den Parametern aufrufe, ist nach der Zeile "inherited Create" das Self=Nil, was ich mir nicht erklären kann. In der Zeile "inherited Create" erhalte ich jedoch keine Fehlermeldung.

Andere Klassen, wo ich es genauso gemacht habe laufen jedoch. Woran kann mein Fehler liegen?

[BadenPower]

Zitat von Captnemo:

Hi,

ich habe eine Klasse, in der ich den Constructor überschreibe, und zwei eigene benutzen möchte.
(Nicht wundern, dass im Create noch nichts weiter drin ist. Kommt noch).

Deklaration:

Delphi-Quellcode:

    constructor Create; overload;
    constructor Create(Drucker: string; Kopien: Integer; KassenList: TKassenList; WarengruppenList: TWarengruppenList); overload;

Du überschreibst den Constuctor ja nicht, sondern Du überlädst in nur.

Zum Überschreiben override benutzen:
constructor Create; override;

[himitsu]

Wie hast du denn dieses Create aufgerufen?

[BadenPower]

Und von welcher Klasse ist die Klasse "TDruckMonatsabschlussDetails" abgeleitet?

[Captnemo]

@Himitsu: Danke, das war der Hinweis den ich brauchte.
Ich hab statt

Ausdruck:=TDruckMonatsabschlussDetails.Create(...)

Audruck.Create(...)

aufgerufen, was natürlich mangels Zuweisung nicht funktioniert. Eigentlich wär bei sowas auch eine Exception schon beim Inherited Create auch ganz toll.
Ein blöder Fehler, der mir eigentlich nicht mehr passieren sollte. Aber trotzdem passiert's. Muss am Alter liegen.

[Popov]

Zitat von Captnemo:

Eigentlich wär bei sowas auch eine Exception schon beim Inherited Create auch ganz toll.

Warum? Ich weiß zwar nicht von welcher Klasse du deine Klasse ableitest, aber wenn es von TObject abgeleitet ist, da ist nichts. Create von TObject ist leer. Man ruft es mit inherited auf, weil es üblich ist, aber im Grunde könnte man es sich sparen. Aber hören wir da auf Himitsu, der da sagte: man sollte es trotz dem aufrufen, es könnte ja eines Tages da was stehen.

Also, aufruf von Nichts erzeugt kein Exception.

[jfheins]

Eigentlich wäre es schön, wenn sowas (aufrufen von .Create auf eine Instanz) nen Compilerfehler erzeugt - aber ich glaube die Diskussion hatten wir schonmal

Könnte man lösen, indem .Create eine Klassenmethode ist und keine Instanzmethode. Ist aber wohl historisch so gewachsen...

Ja, gab es schon mal. Siehe hier: http://www.delphipraxis.net/179403-v...create%3B.html