Array in sich selbst verschachteln

[Mathias]

Ich wollte so etwas machen, aber da motzt der Compiler.

Code: Alles auswählen

type
  TMenuItems = array of record
    Caption: string;
    Command: integer;
    Items: TMenuItems;
  end;  

Code: Alles auswählen

wmmenu.pas(17,12) Error: Illegal expression

Es wäre zu schön gewesen, da hätte man folgendermassen in ein Element im Menu-Baum zugreifen können.

Code: Alles auswählen

var
  M:TMenuItems;
begin
  M[2].items[3].Caption := 'abc'
end; 

Jemand eine Gute Idee als Alternative ?
Auf diese Methode geht es

Code: Alles auswählen

type
  TMenuItems = record
    Caption: string;
    Command: integer;
    Items: array of TMenuItems;
  end;   

Dabei ist das erste Element erst bei Items anstelle schon bei Menutems.

Code: Alles auswählen

  SetLength(MenuItems.Items, 6);
  MenuItems.Items[0].Caption := '&Datei';
  SetLength(MenuItems.Items[0].Items, 8);
  MenuItems.Items[0].Items[0].Caption := '&Neu';
  MenuItems.Items[0].Items[0].Command := cmNewWindow;
  MenuItems.Items[0].Items[1].Caption := '&Oeffnen...';

[BeniBela]

Code: Alles auswählen

{$ModeSwitch advancedrecords}
type
  TMenuItem = record
    type TMenuItems = array of TMenuItem;
  public
    Caption: string;
    Command: integer;
    Items: TMenuItems;
  end;

Damit kann man dann memory leaks produzieren:

Code: Alles auswählen

var items: array of TMenuItem;
begin
  SetLength(items, 1);
  items[0].items := items;
end.   

[Winni]

Hi!

Da gibt's den uralten Trick von N. Wirth himself.

Für den Fall von Datenstruktur innerhalb der Datenstrultur selbst, gibt es die implizite
forward Definition mittles Pointer.

Also

Code: Alles auswählen

type
  PMenuItems = ^TMenuItems;

  TMenuItems = array of record
                            Caption: string;
                            Command: integer;
                            Items: PMenuItems;
  end; 

Da hast Du was Du möchtest. Fast.
Du musst nur sehen, dass Du noch genug Vorrat an ^ hast.

Winni