Mehrdimensionale Array Konstante

[himitsu]

Delphi-Quellcode:

TYPE  farben=(rot,gruen,blau);
TYPE  farbArrayType= ARRAY[1..2, farben] OF INTEGER;
CONST farbArray:farbArrayType = ((00, 01, 02), (03, 04, 05));

// farbArray[2, gruen] = 04

einfach die Ebenen nacheinander ineinander verschachteln

Code:

((00, 01, 02), (03, 04, 05))
(=====1======, =====2======)

und dann
(00,  01,  02  )
(03,  04,  05  )
*rot  grün blau

[edit] so, nun sieht's endlich hübscher aus