Einzelnen Beitrag anzeigen

Der schöne Günther

Registriert seit: 6. Mär 2013
6.110 Beiträge
 
Delphi 10 Seattle Enterprise
 
#3

AW: Verschachtelte Arrays und Records

  Alt 9. Feb 2021, 10:42
Ganz ehrlich, das ist doch nicht mehr im geringsten leserlich. Wenn du es unbedingt als Konstante haben willst darfst du auch nicht durcheinanderkommen:

Delphi-Quellcode:
type
   TArray1 = array [1 .. 1] of record
      String1: String;
      array2: array [1 .. 2] of record
         String2: String;
         array3: array [1 .. 4, 1 .. 2] of Double;
      end;
   end;

const
   array1: TArray1 = (
      (
         String1: 'TestString1';
         array2: (
            (
               String2: 'TestString2';
               array3: ((1, 2), (1, 2), (1, 2), (1, 2));
            )
            ,
            (
               String2: 'TestString2';
               array3: ((1, 2), (1, 2), (1, 2), (1, 2));
            )
         )
      )
   );

PS: Erinnert mich ein bisschen an "LISP" hieraus:
https://toggl.com/blog/save-princess...ming-languages

Geändert von Der schöne Günther ( 9. Feb 2021 um 14:50 Uhr)
  Mit Zitat antworten Zitat