Konstantes Array aus Records die variables Array enthalten ?

[kaiser1401]

Hallo,

ich habe einige verschachtelte Typen aus Records und dynamischen Arrays. Nun möchte ich ein konstantes array mit records füllen. Soweit so gut. Problem ist nur wenn die Records ein variables array aus records enthalten. Hoffe es war halbwegs verständlich, hier nochmal der relevante Code:

Delphi-Quellcode:

type
    tCmeMaskType = (mtSearch, mtImport);
    tCmeMaskTypes = set of tCmeMaskType;

    tCmeComponent = record
      C:TControl; // Component
      R:tCmeMaskTypes; // RestrictedToMaskTypes
     end;


    tCmeComponentTab = record
      N:string; // TabName
      Co: array of tCmeComponent; // Components
     end;

    tCmeComponentCollection=array of tCmeComponentTab;

implementation

  const CompRec: array [0..1] of tCmeComponentTab =
        (
            (
             // Standard Palette
             N:'Standard';
             Co: (
                  (c:TLabel; R:[] ),
                  (c:TEdit; R:[mtSearch])
                 )
            ),
            (
             // Additional
             N:'Additional';
             Co: (
                  (c:TMemo; R:[])
                 )
            )
        );

Sinn der Sache ist es eine Unit zu haben in der ich diese Verschachtlung einmal konstant aufbaue damit ich später nur hier was ändern muss wenn neue Componenten und Paletten dazu kommen.

Hat jemand eine idee wie ich das machhen kann? (Ach ja, die Paletten können unterschiedlich viele komponenten enthalten)