Verschachtelte array of record Initialisierung

[Zacherl]

Probier mal eckige statt offene Klammern für das innere Array. Nur sone Idee.

[Uwe Raabe]

Zitat von Zacherl:

Probier mal eckige statt offene Klammern für das innere Array. Nur sone Idee.

Ist zwar ein guter Ansatz, aber funktioniert leider nicht.

Folgendes könnte man zur Laufzeit machen:

Delphi-Quellcode:

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

  TheControlItemDef = record
    Caption: string;
    Kind: TheItemKind;
    KonfigPath: string;
    Childs: TArray<TheControlItemDef>;
  public
    constructor Create(const ACaption: string; AKind: TheItemKind; const AKonfigPath: string; AChilds: TArray<TheControlItemDef> = nil);
  end;

constructor TheControlItemDef.Create(const ACaption: string; AKind: TheItemKind; const AKonfigPath: string; AChilds: TArray<TheControlItemDef> = nil);
begin
  Caption := ACaption;
  Kind := AKind;
  KonfigPath := AKonfigPath;
  Childs := AChilds;
end;

function Initialize: TArray<TheControlItemDef>;
begin
  Result := TArray<TheControlItemDef>.Create(
    TheControlItemDef.Create('Edit1', ikEdit, 'Edit1'),
    TheControlItemDef.Create('Spin1', ikSpinEdit, 'Spin1'),
    TheControlItemDef.Create('Gruppe1', ikGroupBox, '',
      TArray<TheControlItemDef>.Create(
        TheControlItemDef.Create('Checker1', ikCheckBox, 'Check1'),
        TheControlItemDef.Create('Checker2', ikCheckBox, 'Check2')
      )
    )
  );
end;

[himitsu]

Zitat von Zacherl:

Probier mal eckige statt offene Klammern für das innere Array. Nur sone Idee.

Eine Variable in einer Konstante ... kann nicht gehn.

Delphi kann zwar inzwischen die Länge der statische Array-Konstanten automatisch bestimmen, also ohne explizite Angabe der Länge,
aber das gilt nur für die oberste Ebene, bzw. muß einheitlich für die Unteren sein, denn innerhalb eines Arrays müssen alle Felder gleich lang sein.
> Array-Konstante in Array-Konstante mit unterschiedlichen Längen geht nicht, da sonst für jedes Feld eine eigene TypeInfo/RTTI notwendig wäre.






Rein technisch wäre es möglich, dass man auch für dynamische Arrays eine Konstante definiert, so wie es auch bei Strings geht (welche intern auch nur dynamische Arrays sind),
aber da bei dynamischen Arrays das CopyOnWrite nicht funktioniert (seit Jahren vergessen wurde) und somit die Referenzbehandlung diesbezüglich nicht korrekt arbeiten kann, so dürft ihr das vergessen.
(Konstante ist RefCount=-1)

[Codehunter]

Manchmal braucht es nur einen kleinen Schubs. Und der Uwe kann sehr effektiv schubsen Generics sind schon was feines. So funktionierts:

Delphi-Quellcode:

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

  TheControlItemDef = record
    Caption: string;
    Kind: TheItemKind;
    ConfigPath: string;
    Childs: TArray<TheControlItemDef>;

    class function Create(const ACaption, AConfigPath: string; const AKind: TheItemKind; AChilds: TArray<TheControlItemDef> = []): TheControlItemDef; static;
  end;

  TheControlItemDefs = TArray<TheControlItemDef>;

implementation

{ TheControlItemDef }

class function TheControlItemDef.Create(const ACaption, AConfigPath: string;
  const AKind: TheItemKind;
  AChilds: TArray<TheControlItemDef>): TheControlItemDef;
begin
  Result.Caption := ACaption;
  Result.ConfigPath := AConfigPath;
  Result.Kind := AKind;
  Result.Childs := AChilds;
end;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  ITEMDEFS: TheControlItemDefs;
begin
  ITEMDEFS := TheControlItemDefs.Create(
    TheControlItemDef.Create('Edit1', 'Edit1', ikEdit),
    TheControlItemDef.Create('Spin1', 'Spin1', ikSpinEdit),
    TheControlItemDef.Create('Gruppe1', 'Gruppe1', ikGroupBox, TheControlItemDefs.Create(
      TheControlItemDef.Create('Checker1', 'Checker1', ikCheckBox),
      TheControlItemDef.Create('Checker2', 'Checker2', ikCheckBox)
    ))
  );
end;

(Über den ConfigPath-Member mal keine Gedanken machen, das ist fallpezifisch)

Und es gibt so auch keine Memleaks am Ende. Bin begeistert. Zumal diese Variante in der Initialisierung des Arrays noch eleganter wirkt als die ursprüngliche Version und außerdem noch mit dynamischen Arrays. Schick schick

Grüße
Cody

[Jumpy]

Ist eine Konstante für ein dynamisches Array nicht eigentlich ein Widerspruch ?

[Codehunter]

Zitat von Jumpy:

Ist eine Konstante für ein dynamisches Array nicht eigentlich ein Widerspruch ?

Ist ja jetzt in der finalen Lösung auch keine Konstante mehr