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:

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

Delphi-Quellcode:

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:

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:

Zitat von Mr_G

Zitat:

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