Verschachtelte array of record Initialisierung

[Codehunter]

Zitat von DeddyH:

AFAIK kann man für dynamische Arrays keine Konstanten definieren.

Hmmm... Das hier klappt aber:

Delphi-Quellcode:

type
  TheItemKind = (ikNone, ikCheckBox, ikCheckListBox, ikComboBox, ikEdit, ikGroupBox, ikIPAddress, ikSpinEdit);

  TheControlItemDef = record
    Caption: string;
    Kind: TheItemKind;
    KonfigPath: string;
    Childs: array of TheControlItemDef;
  end;

const
  ITEMDEFS: array[0..1] of TheControlItemDef = (
    (Caption: 'Edit1'; Kind: ikEdit; KonfigPath: 'Edit1'),
    (Caption: 'Spin1'; Kind: ikSpinEdit; KonfigPath: 'Spin1')
  ); 

procedure TuWas(MyArray: array of TheControlItemDef);

implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
  TuWas(ITEMDEFS);
end;

procedure TuWas(MyArray: array of TheControlItemDef);
var
  LItem: TheControlItemDef;
begin
  for LItem in MyArray do {...};
end;