Innerhalb eines Typ (record) den gleichen Typ verwenden?

[Mike07]

Gibt es eine Möglichkeit für das im Titel beschriebene Problem (hoffe das es verständlich ist)?

Hier mal ein konkretes Beispiel von mir:

Delphi-Quellcode:

    TPunkt = record
    X: integer;
    Y: integer;
    Abstand: real;
    Index: cardinal;
    Punkt1, Punkt2: TPunkt;
end;

So würde ich es am liebsten haben, aber das funktioniert nicht.
Als Abhilfe habe ich jetzt erstmal TPoint genommen, aber das wirft bei meinem Programm wieder andere Probleme auf...
Könnte man das irgendwie mit Zeigern machen oder geht das grundsätzlich nicht?

[mkinzler]

Mit Zeigern würde es gehen:

Delphi-Quellcode:

PPunkt = ^TPunkt;
TPunkt = record
    X: integer;
    Y: integer;
    Abstand: real;
    Index: cardinal;
    Punkt1, Punkt2: PPunkt;
end;

Ohne aber nicht.

[Mike07]

ah, danke...das teste ich gleich mal aus!

[Meflin]

So wie du das gepostet hast, solltest du dir allerdings Gedanken darüber machen, ob das vom OOP-Gedanken her sinnvoll ist.

Ein Punkt ist eben erstmal nur X,Y. Was darüber hinausgeht, wird von Punkt abgeleitet oder Punkt wird in anderen Klassen verwendet, aber kaum in sich selber :stupid:

[mkinzler]

Z.B. in eigener Listenklasse TPunktListe o.ä.

[himitsu]

Aber vergiß nicht, für TPunkt muß natürlich Speicher reserviert werden.

Delphi-Quellcode:

PPunkt := ^TPunkt;
TPunkt = record
  ...
  Punkt1, Punkt2: PPunkt;
end;

und das Volgendes nicht geht, könntest du dir eventuell selber denken.

Delphi-Quellcode:

TPunkt = record
  ...
  Punkt1, Punkt2: TPunkt;
end;

Denn als Typ (PPunkt ist nur als Pointer) wird immer der Platz reserviert, welcher der Typ belegt
und da so immer wieder der Typ in sich selber drin wäre, dann würde dieses in einer Endlosschleife enden und unendlich Speicher benötigen :zwinker: .

Delphi-Quellcode:

TPunkt = record
  ...
  Punkt1, Punkt2 = record
    ...
    Punkt1, Punkt2 = record
      ...
      Punkt1, Punkt2 = record
        ...
        Punkt1, Punkt2 = record
          ...
          Punkt1, Punkt2: ....................
        end;
      end;
    end;
  end;
end;

[add]
stimmt, *auf nachfolgenden Post guck*

er ist ja 2-mal in sich drin ... getrennt sieht's natürlich noch schlimmer aus

Delphi-Quellcode:

TPunkt = record
  ...
  Punkt1 = {TPunkt}record
    ...
    Punkt1 = {TPunkt}record
      ...
      Punkt1 = {TPunkt}record
        ...
        Punkt1: ...
        Pinkt2: ...
      end;
      Punkt2 = {TPunkt}record
        ...
        Punkt1: ...
        Pinkt2: ...
      end;
    end;
    Punkt2 = {TPunkt}record
      ...
      Punkt1 = {TPunkt}record
        ...
        Punkt1: ...
        Pinkt2: ...
      end;
      Punkt2 = {TPunkt}record
        ...
        Punkt1: ...
        Pinkt2: ...
      end;
    end;
  end;
  Punkt2 = {TPunkt}record
    ...
    Punkt1 = {TPunkt}record
      ...
      Punkt1 = {TPunkt}record
        ...
        Punkt1: ...
        Pinkt2: ...
      end;
      Punkt2 = {TPunkt}record
        ...
        Punkt1: ...
        Pinkt2: ...
      end;
    end;
    Punkt2 = {TPunkt}record
      ...
      Punkt1 = {TPunkt}record
        ...
        Punkt1: ...
        Pinkt2: ...
      end;
      Punkt2 = {TPunkt}record
        ...
        Punkt1: ...
        Pinkt2: ...
      end;
    end;
  end;
end;

[uligerhardt]

Na, überleg dir lieber erstmal etwas genauer, was du willst: Dein Code-Fragment würde einen Recordtyp definieren, der u.a. 2x sich selbst zur Gänze enthalten würde. Da seh ich ein logisches Problem. :mrgreen:

[Mike07]

ja, das ist wohl wahr...ich wusste aber ja nicht wie ich das sonst machen sollte und um das darzustellen, was ich so grob wollte, habe ich mich eben meines 1. Irrtums bedient ;-)

ansonsten stellen Punkt1 und Punkt2 Punkte da, die in Beziehung zu TPunkt stehen...

[himitsu]

keine Sorge, zum Lernen sind wir ja hier ... außerdem sind diesem Irrtum schon viele erlegen (hatte es auch mal versucht :stupid: )

[Mike07]

dann bin ich ja beruhigt ;-)
naja, ich muss auch noch viel lernen...