Zugriffverletzung beim Procedure Aufruf

[fgb]

Hat geklappt aber wieso?

Delphi-Quellcode:

 TGroesse = 0..100;
 TInfo = Record
            Nr    : Word;
            Kopf  : String[30];
            Inhalt: String;
  End;

  TUnterprogramme = array[TAnzUnterprogramme] of TInfo;

  TProgramme = Record
            Unterprogramme: TUnterprogramme;
            Anzahl: TAnzUnterprogramme;
  End;

  TDatei = Record
            Name    : String[100];
            Inhalt  : String;
            Typ     : TTyp;
            Nr      : Word;
            Programname   : String;
            Interfaceteil : String;
            Implementations : String;
            Hauptteil     : String;
            Unterprogramme: TProgramme;
  End;

  TDateien = array[TGroesse] of TDatei;


  TInfos = array[TGroesse] of TInfo;

  TProjekt = Record
              Ordner    : String[100]; //Entwerder Ordnername oder Dateiname
              AnzDateien: TGroesse;
              Dateien   : TDateien;
  End;
  // Projekte Dateien Unterprogramme
  TProjekte = array[TGroesse] of TProjekt;