Array Reset Probleme

[Georg25]

Huhu,

ich habe einen dyn. Array, dessen Länge ich während der Laufzeit setze.

Code:

procedure CreatePeriodList;
var a,b,c,d,e:integer;
begin
  c := 0;
  d := 0;
  //ermittelt die Periode
  for a := 0 to HighAExamen do begin  
    //geht durch die Liste der Examen
    for b := 0 to HighAExamen do begin
       //Falls die gleiche Periode
       if a = GetAExamFarbe(b) then begin
         //schreibt Examen in FRExamen
         SetLengthAFRExamen(c+1);
         SetAFRExamName(c, GetAExamName(b));
         SetAFRExamAnzahl(c, GetAExamAnzahl(b));
         Inc(c);
       end;
    end;

    c := 0;
    //sortier die FRExamen
    sort_fraum;

    //speichert die FRExamen in Stringlist und löscht den Eintrag
    SetLengthARaumSL(d+1);
    CreateARaumSL(d);

    for e := 0 to HighAFRExamen do begin
     SetARaumSL(d, GetAFRExamName(e) +';' +IntToStr(GetAFRExamAnzahl(e)));
    end;

    inc(d);
    SetLengthAFRExamen(0);
  end;
  //Räume sortieren
  sort_raum;
end;

Die Zeilen die mir Kopfzerbrechen bereiten sind:

SetLengthAFRExamen(c+1);
SetLengthAFRExamen(0);

Da der Array sich in einer anderen Unit befindet, setze ich die Länge via

Code:

procedure SetLengthAFRExamen(Length:Integer);
begin
  SetLength(AFRExamen, Length);
end;

Beschreibung:
Ich habe einen Array, den ich um je 1 erweiter (was auch funktioniert!), nun möchte ich ihn am Ende aber "resetten" bzw auf 0 setzen, nur leider möchte er dies nicht machen.

Ich habe mich bereits im Internet umgeschaut und EIGENTLICH sollte SetLengthAFRExamen(0) funktionieren, auch NIL habe ich schon versucht, jedoch ohne Erfolg

mfg
Georg