2 dimensionales dynamisches array

[mmk369]

Erst mal hallo , bin zwar neu hier, hab aber schon viele Beiträge hier gelesen.

Nun zu meinem Problem...
Mein Code :

Delphi-Quellcode:

type
 TARR_Class = record
              Obj : TLabel;
              CL  : string;
 end;

 ...

var
 ARR_Class : array of array of TARR_Class;

 ... 

if CLExists = -1 then  
    begin              
     Max_X :=   length (ARR_Class);
     setlength  (ARR_Class, MAX_X+1 );
     setlength  (ARR_Class[Max_X],1 );
    end
   else
    begin
      Max_X :=   length (ARR_Class);              //Hier meldet der debugger einer EAccessViolation
      Max_Y :=   length (ARR_Class[MAX_X]);
      setlength  (ARR_Class[CLExists], Max_Y+1);
    end;
   ARR_Class  [Max_X, MAX_Y-1].CL  := FORMAT;
   ARR_Class  [Max_X, MAX_Y-1].obj := lblText;
 end;

 ...

Es ist bestimmt nur ne Kleinigkeit die ich übersehen hab, hoff ich mal

Danke im voraus