Zugriffsverletzung bei einem Constructor

[Dragon27]

Hallo Zusammen,

ich habe gerade eine neue Klasse geschrieben, jedoch wird mir beim Constructor eine Zugriffsverletzung angezeigt. Weiß
jemand von Euch wieso?

Delphi-Quellcode:

type TKonto = class
     BeschEinnahmen:TStringlist;
     GeldEinnahmen:Tstringlist;
     BeschAusgaben:Tstringlist;
     GeldAusgaben:Tstringlist;
     KName:String;
  public

     Procedure Add(Art:String;Besch:String;Geld:String);
     Procedure Delete(Art:String;Index:Integer);
     Function CalcSaldo():String;
     Constructor NeuesKonto(NKName:string);
     Destructor KontoOhneSpeichernBeenden;
end;

implementation

Destructor TKonto.KontoOhneSpeichernBeenden;
begin
  BeschEinnahmen.Free;
  GeldEinnahmen.Free;
  BeschAusgaben.Free;
  GeldAusgaben.Free;
end;

Constructor TKonto.NeuesKonto(NKName:string);
begin
  BeschEinnahmen:=Tstringlist.Create;  //Hier ist der Fehler
  GeldEinnahmen:=Tstringlist.Create;
  BeschAusgaben:=Tstringlist.Create;
  GeldAusgaben:=Tstringlist.Create;
  KName:=NKName;
end;

Danke!

[jaenicke]

Was den Fehler anbelangt vermute ich, dass du das so aufrufst:

Delphi-Quellcode:

var
  xy: TKonto;
begin
  xy.NeuesKonto(...);

statt richtig

Delphi-Quellcode:

var
  xy: TKonto;
begin
  xy := TKonto.NeuesKonto(...);

xy existiert ja da noch nicht, und du versuchst trotzdem eine Methode daraus aufzurufen.

Dann zu dem Namen: Ein Konstruktor heißt Create und nicht NeuesKonto und der Destruktor Destroy...

[Mr_G]

Zitat von jaenicke:

Dann zu dem Namen: Ein Konstruktor heißt Create und nicht NeuesKonto und der Destruktor Destroy...

Das liegt bei einem selbst (wie man sieht ).

[mkinzler]

Zudem muss man im Konstruktor den geerbeten aufrufen

also als ersten Befehl inherited Create(<Parameterliste>);

[Luckie]

Wenn die Klasse von TObject abgeleitet ist, ist dies überflüssig, da der Konstrukor von TObject leer ist.

[Mr_G]

Zitat von mkinzler:

Zudem muss man im Konstruktor den geerbeten aufrufen

Laut OH scheint es auch da Ausnahmen zu geben:

Zitat:

Beim Aufruf mit einer Objektreferenz wird normalerweise der geerbte Konstruktor mit inherited ausgeführt.

[jaenicke]

Zitat von Mr_G:

Zitat von jaenicke:

Dann zu dem Namen: Ein Konstruktor heißt Create und nicht NeuesKonto und der Destruktor Destroy...

Das liegt bei einem selbst (wie man sieht ).

Den einzigen Sinn, den ich sehe, ist, wenn man die benutzenden Programmierer ärgern möchte...

[mkinzler]

Zitat:

Beim Aufruf mit einer Objektreferenz wird normalerweise der geerbte Konstruktor mit inherited ausgeführt.

Ist keine Ausnahme. inherited; bewirkst das der Konstruktor der Superklasse mit dem selben Namen und der identischen Parameterliste aufgerufen wird.

[Mr_G]

@jaenicke: Da Delphi oft zu Ausbildungszwecken benutzt wird, gehen viele nicht unbedingt auf die "sprachspezifischen Besonderheiten" ein sondern nutzen das was sie als "sprechende Namen" empfinden.

@mkinzler: Wie passt den Luckies Statement da rein?

[mkinzler]

Zitat:

@mkinzler: Wie passt den Luckies Statement da rein?

Man sollte sich trotzdem angewöhnen dies zu tun. Zudem kann sich die Implementierung bei TObject jederzeit ändern