Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Einen Type "in sich selbst verwenden" (https://www.delphipraxis.net/17051-einen-type-sich-selbst-verwenden.html)

Stanlay Hanks 27. Feb 2004 12:48


Einen Type "in sich selbst verwenden"
 
Hallo zusammen! Erstmal muss ich mich für den Titel entschuldigen, aber das kann man nur schwer anders ausdrücken. Ich hab heute mal so aus Neugier etwas rumprobiert und bin dabei auf folgendes Problem gestoßen: Ich wollte gerne die "Struktur" eines erweiterten (PopUp) Menüs in einem Type "ausdrücken" (Ich hoffe, irgendwer versteht, was ich sagen will. Hab mich damit noch nicht allzu stark befasst :oops:) und hab das so (nur mit den wichtigsten Einträgen als Beispiel) angefangen:

Delphi-Quellcode:
type TMMenuItem = record
     Caption : String;
     Width : Integer;
     Height : Integer;
     Parent : TMMenuItem; //Klappt nicht, weil TMMenuItem nicht "vollständig definiert ist"
     SubItems : Array of TMMenuItem; //Klappt natürlich auch nicht
end;
Hat jemand eine Idee, wie das gehen könnte? Ich möchte erreichen, dass sich diese einzelnen TMMenuItems sozusagen untereinander verbinden lassen. Also so, wie eben bei normalen Menus auch (Eintrag, Untereintrag, Untereintrag vom Untereintrag usw.) Ich weiß, dass es schlecht formuliert ist, aber wie gesagt, ich hab mich noch nicht richtig damit beschäftigt :oops:

Danke schon mal, Stanlay :hi:

TheBender 27. Feb 2004 13:32

Re: Einen Type "in sich selbst verwenden"
 
Das müsste Funzen;
Code:
type PMMenuItem= ^TMMenuItem;
     TMMenuItem = record
     Caption : String;
     Width : Integer;
     Height : Integer;
     Parent : TMMenuItem;
     SubItems : Array of PMMenuItem;
     end;

Stanlay Hanks 27. Feb 2004 13:35

Re: Einen Type "in sich selbst verwenden"
 
Hi! Vielen Dank für die schnelle Antwort. Da ich mich, wie gesagt, so gut wie überhaupt nicht mit types etc auskenne, wäre es nett, wenn du mir erklähren könntest, was das, was du da geschrieben hast, genau bedeutet/was du genau gemacht hast :oops: Danke!

TheBender 27. Feb 2004 13:37

Re: Einen Type "in sich selbst verwenden"
 
Code:
type PMMenuItem= ^TMMenuItem; //Ein Pointer auf dein MenuItem
     TMMenuItem = record
     Caption : String;
     Width : Integer;
     Height : Integer;
     Parent : TMMenuItem;
     SubItems : Array of PMMenuItem; //Ein Array von Pointern auf dein MenuItem
     end;

Stanlay Hanks 27. Feb 2004 13:40

Re: Einen Type "in sich selbst verwenden"
 
Vielen Dank! :hello: Jetz is der Groschen gefallen! :D
Ich hab nur noch bei Parent auch noch PMMenuItem geschrieben, dann gings auch schon super! :hello:

Man liest sich, Stanlay :hi:

TheBender 27. Feb 2004 13:43

Re: Einen Type "in sich selbst verwenden"
 
Hab ich übersehen :oops:


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:31 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz