Self ist im Constructor nil

[phri]

Wie im Titel beschrieben, rufe ich einen constructor auf und schon in dessen erster Zeile ist self=nil , was einen Zugriffsfehler zur Folge hat.

Delphi-Quellcode:

interface
type
  tzustand=(l,g,t);

  tknoten=class
    z:tzustand;
    farbe:integer;
    liste:tliste;
    constructor create;
    destructor destroy;
    procedure reparieren;
  end;

implementation

  constructor tknoten.create;
  Begin
    self.z:=l; //Hier erhalte ich immer eine EAccesViolation  
    farbe:=0;
    liste:=nil;
  end;

Ich kann den Fehler einfach nicht finden. Daher wäre es nett, wenn ihr mir helfen könntet.

[jbg]

Wie rufst du denn den Konstruktor auf?

[mkinzler]

Delphi-Quellcode:

constructor tknoten.create;
Begin
    inherited;
    self.z:=l; //Hier erhalte ich immer eine EAccesViolation
    farbe:=0;
    liste:=nil;
end;

[sx2008]

Das liegt daran, wie du später den Konstruktor aufrufst:

Delphi-Quellcode:

var
  knoten : tknoten;
begin
  knoten.Create;   // FALSCH!

  knoten := tknoten.Create; // Richtig

[phri]

Delphi-Quellcode:

var k:tknoten

  if k=nil then k:=k.create

Ich bin über die Suche jeden Constructor Aufruf durchgeganen, und er ist immer wie oben.

[mkinzler]

if not Assigned( k) then k := TKnoten.Create;

[Uwe Raabe]

Zitat von phri:

Delphi-Quellcode:

var k:tknoten

  if k=nil then k:=k.create

Ich bin über die Suche jeden Constructor Aufruf durchgeganen, und er ist immer wie oben.

Dann ist er immer falsch! Markus zeigt wie es geht.

[phri]

Danke , an den anderen Stellen war er tknoten.create.