Baumstruktur in Klassen statt Array's abbilden

[kalmi01]

Hallo bttb930,

Zitat:

NEIN, das ist nicht dasselbe!!!

Ich denke mal dass das zweite Beispiel sich nicht mal compilieren lässt.

Also:
a.) es läßt sich in Delphi 7 ohne Fehler kompilieren.
b.) ich habe ein altes Prog von solchen Konstrukten:

Delphi-Quellcode:

Zeiger     = ^Datentyp; 
Datentyp   = RECORD 
                 Inhalt        : Inhaltstyp; 
                 Nachfolger    : Zeiger; 
             END;

auf solche umgestellt:

Delphi-Quellcode:

Zeiger = RECORD 
             Inhalt        : Inhaltstyp; 
             Nachfolger    : Zeiger; 
         END;

und es funktioniert genauso wie vorher.
Allerdings bekomme ich keine Warnungen vom Typ: inkompatible Typen
mehr.
OK, war ein bischen mehr, als nur diese eine Deklaration abändern, aber auch laut Borland-Doku ist beides identisch.

[mimi]

Delphi-Quellcode:

Zeiger = RECORD
             Inhalt        : Inhaltstyp;
             Nachfolger    : Zeiger;
         END;

komisch in meinen versuchen hat das nie funktioniert....

Delphi-Quellcode:

  TTest = record
    Test:Integer;
    test1:TTest
  end;

das wird nicht gehen weil TTest der record selbst ist das geht nur bei klassen so.....

[kalmi01]

Hallo Michael,

Du hast Recht.
In meinem Eifer hatte ich übersehen, daß es in dem Beispiel ein Record war.
Bei den Sourcen, die ich umgestellt hatte, waren es immer Klassen.

[kalmi01]

Aus Delphi-Sprachreferenz:

Zitat:

Die Typdeklaration selbst liegt nicht im Gültigkeitsbereich des Typbezeichners (dies
gilt allerdings nicht für den Typ Pointer). Aus diesem Grund kann beispielsweise ein
Record-Typ definiert werden, der sich selbst rekursiv verwendet.

war aber kein Beispiel dabei.

[mimi]

kann mal jemmand ein beispiel geben zu den gezeigt text?
ich kann mir darunter nicht so richtig was vorstellen.

[marabu]

Zitat:

Zitat von kalmi01

Aus Delphi-Sprachreferenz:

Zitat:

Die Typdeklaration selbst liegt nicht im Gültigkeitsbereich des Typbezeichners (dies
gilt allerdings nicht für den Typ Pointer). Aus diesem Grund kann beispielsweise ein
Record-Typ definiert werden, der sich selbst rekursiv verwendet.

war aber kein Beispiel dabei.

Vermutlich ein Übersetzungsfehler - muss heißen:

Zitat:

Aus diesem Grund kann beispielsweise kein Record-Typ definiert werden, der sich selbst rekursiv verwendet.

Gemeint ist, dass folgendes nicht geht:

Delphi-Quellcode:

type
  TMyRecord = record
    mr: TMyRecord;
  end;

[mimi]

ja das war mich auch klar, daher meine frage wie der text es meinte.